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User Survey reported a re 8 overall user 
satisfaction rating out of a possible 


4.0-for Sage Computers. 


SAGE iv 
Sure, we like to read about ourselves scoring high marks 


in market studies. Our users do also. We appreciate the 
positive comments written about us by writers and editors 
around the world. But, as much as we enjoy the reports, 
it doesn’t really surprise us. 
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We've designed performance into every computer system 
we manufacture. Not just speed, but flexibility, functionality 
“and réliability; Sage has been building high performance 
68000 multi-user systems longer than anyone, and we 
know that designing performance into our product requires 
time, attention to detail and a non-compromising attitude 


of doing things right. 
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Sage systems are available with nine different operating 
systems, 23 languages and over 300 application programs 
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in 50 different categories. All systems come with a 90-day 
warranty, extendable to 3 years. And we have hundreds of 
dealers worldwide. 
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lf you would like to know more about Sage and our Sage || 
and IV microcomputer systems, call or write today for your 
free copy of the 28-page Sage Product Catalog. It offers all 


you need to know about Sage, and how we design 
performance into every product we sell. 


RRL IB PRONTO SOOO 


Reno: 702-322-6868 


Dallas: 214-392-7070 
Boston: 617-229-6868 
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Dallas: 14755 Preston Rd., Suite 600, Dallas, TX 75240 
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More power 
Co you. 


— nena. 


Remember the magic you 
expected when you first purchased 
aPC? 

It's here. 

dBASE III™ is the most power- 
ful database management system 
ever created for 16-bit 
microcomputers. It pulls 
every ounce of energy 
out of your PC and puts 
it to work. 

On top of that, it’s 
fast and it's easy. 


You've never seen 
anything like it. 
dBASE III can handle over a billion 
records per file, limited only by your com- 
puter — You can have up to ten files 

open, for sophisticated applications pro- 
grams. 

When you have two related files, infor- 
mation in one can be accessed based upon 
data in the other. 

dBASE III now handles procedures, 


parameter passing and automatic variables. 


You can include up to 32 procedures in a 
single file. With lightning speed. Because 
once a file is opened, it stays open. And 
procedures are accessed directly. 


Easier than ever. 

dBASE III uses powerful yet simple 
commands that are the next best thing to 
speaking English. 

If you're unsure of a command, HELP 
will tell you what to ask for. 

If you don’t know what command 
comes next, a command assistant does. All 









you have to know is what you 
want it to do. 

Our new tutorial/manual 
will have you entering and 
viewing data in minutes rather 
than reading for hours. 

And to make matters 
easier, you get a full screen 
report setup for simple infor- 
mation access. 


Faster than no time at all. 

dBASE III isn’t just fast. It’s ultra-fast. 
Operating. And sorting. Even faster, is no 
sorting. Because dBASE III keeps your 
records in order, so you really don't have to 
sort anything. Unless you want to. Then 
watch out! 


What about dBASE II”? 

It’s still the world’s best database man- 
agement system for 8-bit computers. And 
it’s still the industry standard for account- 
ing, educational, scientific, financial, busi- 
ness and personal applications. 

Tap into our power. 

For the name of your nearest authorized 
dBASE III dealer, contact Ashton-Tate, 10150 
West Jefferson Boulevard, Culver City, CA 
90230. (800) 437-4329, ext. 333. In Colorado, 
(303) 799-4900. 


ASHTON ‘TAIE 


© Ashton-Tate 1984. All rights reserved. dBASE III and Ashton-Tate are 
trademarks and dBASE II is a registered trademark of Ashton-Tate. 
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In This Issue 


Our Resident Intern puzzled a few of months ago about the relative sparseness 
of CP/M Plus users. We’re also surprised, in light of its greater flexibility and 
power than ordinary CP/M 2.2. Resident System Extensions are one example of 
this. This issue we have two pieces that deal with these handy routines. Garry 
Silvey of Digital Research has provided us with an article showing how they work 
and how to add them to your system. Bob Blum’s CP/M Exchange column also 
received an RSX contribution from Mike Griswold that patches incompatibilities 
between CP/M Plus and 2.2 BIOS calls. Maybe this will give more folks incentive 
to explore what CP/M Plus can do for them. We plan to provide other material on 
CP/M Plus in the near future. 


The Doctor’s Bulletin Board 


In the April issue we intimated that an electronic bulletin board could be in 
DDJs future. Well, what we have in mind is a multi-user system that will allow 
lots of features to be included. Because it is intended, among other things, to 
improve the reader interface, we would like to hear your suggestions of desirable 
capabilities. An excellent way to make your recommendations is the Editorial 
Response card (we even pay the postage). If you have something you would 
really like the board to do, jot it on the card with the any other comments you 
wish to make and drop it in the mail. We can’t promise everything will be includ- 
ed, but we want it to serve as many needs a possible. 


For Our Authors 


Our latest version of the writer’s guidelines is now available—expanded and 
accompanied by a current payment schedule. Just drop us a note with your name 
and address and we’ll send them along to you. We are also adding ways to receive 
manuscripts. We can currently accept them via modem, MCI Mail, diskette in an 
increasing number of formats, and, of course, hard copy. You’ll need to ask us 
about the particulars. 


This Month’s Referees 


Dr. Dobb’s Journal regularly draws on the expertise of a Board of Referees for 
technical evaluation of material submitted for publication. In addition to re- 
marks to the editors concerning accuracy and relevance on manuscripts, the 
referees often provide constructive comments for authors regarding clarity or 
completeness. Their remarks help prevent authors from exposing blindspots or 
misconceptions in print and help ensure that our readers receive clear and accu- 
rate information. 

Numbering between forty and fifty referees, the referees include experts from 
diverse areas of the computer industry and the academic community. Because of 
space considerations, we can print a list of the entire board only a few times each 
year. Monthly, however, we do print the names of the referees who contributed 
their insights on material in that particular issue. Your humble editors must bear 
the burden of choosing how material ultimately appears, and we are grateful for 
the beneficial advice we receive. 


The referees who contributed to this month’s issue are: 

Robert Blum, Contributing Editor, DDJ 

David E. Cortesi, Contributing Editor, DDJ 

James E. Hendrix, Office of Computing and Information Services, University of 
Mississippi 

Richard G. Larson, Dept. of Mathematics, Statistics and Computer Science, 
University of Illinois at Chicago 

William Ragsdale, President, Dorado Systems 

Robert Smith 
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in the 1930s and 40s. A century earlier, Jacquard’s loom took its weaving 
instructions on punched cards: the person who selected the cards to pro- 
duce the desired pattern was an early programmer. 

Software designers came later. What Mauchly and Eckert and Atanasoff and 
Berry and Von Neumann and Turing and Zuse invented under the shadow of 
World War II was not just a programmable device, but a general-purpose pro- 
grammable device, and that distinction made possible (and necessary) software 
designers. 

A software designer makes the computer do something qualitatively different 
from anything it has done before, supplies the general-purpose device with a new 
specific purpose. 

Without that definition of purpose, documentation is moot. Documentation 
for specific applications such as word processors and spreadsheet programs is 
getting better, but there has never been anything that can fairly be called com- 
puter documentation, no manual that explains, to someone who doesn’t already 
know, what a computer does. One can’t document the inherently undefined. 

Without that definition of purpose, sales are problematic. Apple sales skyrock- 
eted when Personal Software released VisiCalc for the machine. 

So one adopts a simplifying metaphor. The computer is a spreadsheet, the 
computer is a desktop, the computer is a vending machine: drop in a problem and 
out falls a solution. That’s how technical writers document, that’s how dealers 
sell, that’s how users understand computers. One needs that grounding meta- 
phor, and it’s the software designer who provides it. 

The Xerox PARC designers wove their homely office-furnishings metaphors 
and produced the Alto and Star, whence Apple’s hopes for its corporate future in 
starspawned Macintosh and Lisa. Dan Bricklin and Bob Frankston spun the 
metaphor of the computer as spreadsheet and came up with VisiCalc. A comput- 
er plus VisiCalc is an electronic spreadsheet, something whose purpose can be 
understood and documented. 

But every metaphor is a simplification, a fiction which, believed, closes doors. 
Metaphors can be hidden inside the words we use, and can subtly influence our 
thinking. Is COPY really a better operating system command name than PIP? 
While COPY seems to say clearly what it does, PIP is an acronym whose full 
name, Peripheral Interchange Program, reminds us that it is a program, written 
by an individual for a purpose not necessarily coextensive with our intuition 
about what copying is. Which metaphor serves us better? 

The ideal is to create good metaphors and not to be controlled by unexamined 
metaphors. That’s what distinguishes a software designer from a programmer. 
The software designer is one who can glimpse the computer, however briefly, as a 
computer, as a truly general-purpose device, and then create a new purpose, a 
new metaphor. The good programmer uses an appropriate metaphor effectively; 
the software designer steps out in the undefined air and weaves a metaphor to 
stand on. 

We think that good, creative software design is important, and we want to 
promote it. Within the next two months we will be introducing a new department 
of the magazine, The Software Designer, in which working software designers 


will discuss basic issues in software design. 


Michael Swaine 


af here were programmers long before the invention of the digital computer 
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are, you've now got alot of euaaammne Yd 2 
different people in a lot = id 

of different departments 
using a lot of different 
micros. 

Now there's a way for 
you to control and maxi- 
mize the benefits of all the 
different micros in your 
domain. 


Fight back with dBASE II Help is here. 
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dBASE II is the relational database If you'd like to know more about 
management system from Ashton-Iate how dBASE II and Runtime can help you 
that enables you to manage your micro- — win the micro management battle, contact 


based corporate data resources with the | Ashton-Iate today. 10150 West Jefferson 

high level of consistency and sophistica- | Boulevard, Culver City, CA 90230. 

tion you've enjoyed with mainframe and (800) 437-4329, ext. 217 . In Colorado 

minicomputer systems. (303) 799-4900. In the U.K. (0908) 568866. 
Armed with dBASE II and the 

dBASE II RunlIime™ program develop- 

ment module, you can write programs , 

which will enable micro users in each ™ 

department to “do their own thing” while ASHTON . | A | K 


creating complete database consistency 


throughout the company. 
dBASE II is a powerful, flexible way 
for you to effectively Manage the micro dBASE II is a registered trademark and RunTime is a trademark of Ashton-Tate. 
. . Suggested retail price for dBASE II is $700. 
proliferation. © Ashton-Tate 1984 
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A Small-C Redundancy 


Dear Dr. Dobb, 

I’m a new subscriber to DDJ who 
has recently managed to obtain a copy 
of Jim Hendrix’s Small-C compiler. 
When I got it up and running, I discov- 
ered that some functions produced ex- 
traneous, unreachable code—namely, 
functions that explicitly returned a val- 
ue as the last statement in the function 
and that also declared local variables. 
For example, 


function() { 
char c; 
return(c); 


} 


The problem was that the explicit 
return caused stack-adjusting instruc- 
tions to be generated along with the 
RET, to delete the local variable space. 
These same instructions were generat- 
ed again at the end of the function 
(which in this case was a couple of 
characters later, immediately after the 
return). 

I traced the source of the problem to 
the compound() function and designed 
a patch, which I sent to Jim Hendrix. 
During the course of our correspon- 
dence on this matter, he came up with 
a better patch, which is contained in 
the material following this letter. I’ve 
applied the patch, and it seems to work 
as indicated. 

I’m grateful to Ron Cain, J.E. Hen- 
drix, and Dr. Dobb’s Journal for pro- 
viding this compiler. I learned a lot 
from it, and, now that I have it work- 
ing, intend to make good use of it. 

Thanks, 

David Bookbinder 

888 Mass Ave. #511 
Cambridge, MA 02139 


Mr. Hendrix writes: 

David Bookbinder has observed that 
Small C generates redundant code for 
deallocating local variables at the end 
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of a function when the last statement is 
a return. The same is true if a return is 
the last statement in any compound 
statement which declares local vari- 
ables. This is harmless, but it unneces- 
sarily adds to the size of programs and 
it really is untidy. 

Likewise, if the last statement in a 
function is a goto, unnecessary code 
for deallocating local variables and a 
RET is generated. Since a goto would 
block the exit path from a function, 
there is no need for such code. (The 
compiler already eliminates the RET if 
the last statement is a return.) There is 
no problem with goto’s terminating 
nested compound statements since go- 
to’s are not allowed if variables are de- 
clared anywhere after the opening 
brace of the function body. So there 
are no variables to deallocate. 

The following patch will eliminate 
these instances of redundant and un- 
necessary code. 


(1) Add the following line to the end of 
the file CC.DEF: 
#define STLABEL 14 


(2) Change the line in newfunc() (file 
CC12.C) which contains a call to 
statement() to read: 
statement(): 

#Hifdef STGOTO 

if(lastst!= STRETURN && 
lastst != STGOTO) ffret(); 
#else 

if(lastst != STRETURN) ffret(); 
#Hendif 


(3) Change the line in statement() (file 
CC13.C) which contains a call to 
dolabel() to read: 
else if(dolabel()) 
lastst=STLABEL; 


(4) Change the line in compound() 
(file CC13.C) which contains a 
call to modstk() to read: 

#ifdef STGOTO 
iflastst!= STRETURN && 


lastst != STGOTO) 
#else 

if(lastst != STRETURN) 
#Hendif 

modstk(savesp, NO); 

/* delete local variable space * / 
CSp = savesp; 


(5) Recompile, assemble, and link the 
compiler. 


He Found Problems, Too 


Dear Editor: 

I read with considerable interest 
Ray Duncan’s comments regarding 
the Microsoft Macro Assembler for 
the IBM PC in your February 1984 is- 
sue. Since the State University of New 
York at Buffalo is acquiring IBM PC’s 
at rather a good clip, I decided to ex- 
periment a bit with the assembler un- 
der the theory that if there are that 
many bugs, there may well be many 
more. As it turned out, the first thing I 
tried failed. Basically, as the code in 
Listing One (page 12) demonstrates, 
the assembler seems to ignore the fact 
that IF-nesting is local to MACRO’s 
(including IRP’s, etc.) and all nested 
unsatisfied IFs must be cleared if the 
MACRO is exited via EXITM. If the 
seemingly “extra’’ ENDIF is removed 
(the line with the !’s), the assembler 
reports unclosed IF’s on both passes. 
With the extra ENDIF, it assembles 
correctly, but this pattern of perfor- 
mance makes EXITM almost useless. 

Further experiments with IRP’s and 
EXITM’s enclosed within MACRO’s 
yielded results too bizarre to interpret 
simply or consistently. This situation, 
coupled with what Mr. Duncan ob- 
served, puts this piece of software 
firmly in the “Not Recommended” 
category insofar as SUNY at Buffalo is 
concerned! 

I do disagree somewhat with Mr. 
Duncan’s observation that a “more un- 
likely high level language” than Pascal 
could not have been chosen to write an 
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A Large Program Into 





A Small Memory Space? 





It's time you got Plink86™ the 
overlay linkage editor that’s 
bringing modular programming 
to Intel 8086-based micros. 

With Plink86* you can write a 
program as large and complex 
as you want and not worry about 
whether it will fit within available 
memory constraints. You can 
divide your program into any 
number of tree-structured over- 
lay areas. 4095 by 32 deep. 
Work on modules individually. 
Then link them into executable 
files. All without making changes 
to your source program 
modules. 

Use the same module in dif- 
ferent programs. Experiment 
with changes to the overlay 
structure of an existing program. 
Use one overlay to access code 





and data in other overlays. 

Plink86 is a two-pass linkage 
editor that links modules cre- 
ated by the Microsoft assembler 
or any of Microsoft's 8086 com- 
pilers. Plink86 also works with 
other popular languages, like 
Lattice C, C86, or mbp/COBOL. 
And supports symbolic debug- 
ging with Phoenix’ Pfix86 Plus™ 

Plink86 includes its own ob- 
ject module library manager — 
Plipb86™ — that lets you build 
libraries from scratch. Add or 
delete modules from existing 
libraries... Merge libraries... 

Or produce cross-reference 
listings. 

Why squeeze any more than 
you have to? Plink86 by Phoenix. 
$395. Call (1) 800-344-7200. 

Or, write. 


fiponee 


Phoenix Software Associates Ltd. 
1420 Providence Highway Suite 260 
Norwood, MA 02062 

In Massachusetts (617) 769-7020 


*Plink86 will run under PC DOS, MS-DOS™ or CP/M™-86. 


Plink86, Pfix86 Plus and Plib86 are trademarks of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation. CP/M is a trademark of Digital Research, Inc. 
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Listing One 
Microsoft Assembler Illustration 


The IBM Personal Computer MACRO Assembler 02-8-84 PAGE 1-1 


ASSUME CS: CSEG 
OOOO CSEG SEGMENT 

ie: eG Le 

IFIDN <R>,<C> 

DB 1 

EXITM 

ELSE 

DB O 

ENDIF 

ENDM 
OOOO OO + DB O 
0001 O11 + DB 1 

ENDIF ; !1!! 
0002 CSEG 2 ENDS 

END 


Segments and groups: 


Name Size align combine class 
Ra Sette pee os a ety Gee OO0O02 PARA NONE 


Warning Severe 
Errors Errors 
O O 


Knowledge And Mind Amplification System. 


Sa aE Te INTE IS BOTS NRE I TIT YT SPSS OT SETS 


_} Get a head start at developing applications in the exciting, new area of Outline Processing. With KAMAS™, you 
can we ideas in a familiar, outline form. And retrieve them with astonishing speed using the built-in KAM™ Ac- 
cess Method. 


LJ All under the precise control of an extensible, programming environment. The KAMAS™ language produces com- 
pact, threaded code and is integrated with the Outline Processing. Source code can be entered with the built-in text 
editor and stored in outline form, providing extraordinary leverage for structured programming and development. 


O The language is highly interactive and fast, offering an outstanding environment for developing and testing applica- 
tions using the Outline Processing, Information Retrieval, Word Processing, and Telecommunications features. 


L] Capitalize on the next wave of the software revolution which promises to surge as high as Spreadsheet Processing. 


Available for Kaypro computers. Special introductory offer: $147. Send now for your free copy of “The KAMAS Re- 
port. 


7C. SS. COMPUSOPHIC Dept. 121 © 2525 SW 224th Ave 
N22 = SYSTEMS Aloha, Oregon 97006 « [503] 649-3765 


KAMAS is a trademark of Compusophic Systems. Kaypro is a trademark of Kaypro Corporation. 
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assembler in. After all, Microsoft 
could have chosen COBOL! (Such a 
choice is not quite as impossible as it 
might seem; back in the mid-1960’s 
the French wrote part of an Algol com- 
piler for the IBM 7040/44 series in 
COBOL.) 

Seriously, Pascal is not a bad choice 
as language structures go; after all, 
both Modula and Ada descended from 
it. The problem is that the IBM PC Pas- 
cal compiler does not generate very 
good object code. This is a global mi- 
crocomputer difficulty, as your Resi- 
dent Intern, Mr. Cortesi, has been stat- 
ing so eloquently in the last several 
issues. 

Keep up the good work! 

Sincerely, 

Gary M. Gibson, Assoc. Dir. 
University Computing Services 
SUNY at Buffalo 

4250 Ridge Lea Road 

Buffalo, NY 14226 


Accent Finder Fix 


Dear Sirs, 

It goes without saying that I was 
thrilled to see the “Accent Finder” in 
the May issue. In order to accommo- 
date the changes you suggested, I had 
sent you three versions. The version 
published seems to be a combination of 
versions two and three. In its present 
shape it will work. However, it will fail 
to check for invalid characters within 
the word that’s being analyzed. In or- 
der to remedy this, one need add only 
one line to the PROMPT procedure 
which should appear as shown in List- 
ing Two (page 14). 

For anyone interested in contacting 
our club, the UCLA IBM4341 Users’ 
Group, we are on the BitNet. Our node 
is UCLAVM and my handle is VSS2364 
(VSS2364 @ UCLAVM). 

Long live Dr. Dobbs! 

Yours truly, 

Eddy C. Vasile 

3314 Sawtelle 28 

Los Angeles, CA 90066 


More RSA Remarks 


Dear Editor: 

I am responding to the letters that 
you published in the June 1984 issue 
regarding my recent article on the RSA 
Public Key System. | 
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Most Program Editors 
Are Shockinely Primitive. 





Use Pmate™ once, and you'll sequences. So powerful, you 
never go back to an ordinary can ‘‘customize’’ keyboard 
text editor again. Pmate is more andcommand structure to 
than a powerful programmer's — match your exact needs. 


text processor. It's an inter- Get automatic comments on 
pretive language especially code. Delete comments. Check 
designed for customizing text syntax. Translate code from 
processing and editing. one language to another. Set 
Just like other powerful edi- up menus. Help screens. You 
tors, Pmate” features full-screen name it. 
single-key editing, automatic And, Pmate has its own set 
disk buffering, ten auxiliary of variables, if-then statements, 
buffers, horizontal and vertical —_ iterative loops, numeric calcu- 
scrolling, plus a ‘garbage lations, a hex to decimal and 
stack’”’ buffer for retrieval of decimal to hex mode, binary 
deleted strings. But, that's just conversion, and a trace mode. 
for openers. You can even build your own 


What really separates Pmate application program right 
from the rest is macro magic. A _ inside your text processor. 
built-in macro language with So, why work with primitive 
over 120 commands and single- tools any longer than you have 
keystroke ‘‘Instant Commands” to? Pmate by Phoenix. $225. 
to handle multiple command Call 1-800-344-7200. Or Write. 


Phone 


Phoenix Software Associates Ltd. 
1420 Providence Highway Suite 260 
Norwood, MA 02062 

In Massachusetts (617) 769-7020 


*Pmate is designed for microcomputers using the Intel 8086 family of 
processors, and running MS-DOS™ A custom version is available for 
the IBM PC, TI Professional, Wang Professional, DEC Rainbow, 
and Z80 running under CP/M™ 


Pmate is a trademark of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation. CP/M is a trademark of Digital Research, Inc. 
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Listing Two 


Accent Finder Fix 


procedure prompt(var word:WordType; var Error:boolean); 
begin 


write('Enter the word > '); 


readin(word); 


word: = UpperCase(Condense(word)); 


CheckChars(Error,word) 
end; 


First let me comment on remarks by 
Dr. Criscione. He points out that fac- 
toring of large prime numbers, in this 
case Mersenne primes, is being done. I 
pointed out in my article that a means 
of factoring large prime numbers 
would render the RSA system less use- 
ful. However, I believe that these 
primes are special cases and that the 
methods being used are specific to this 
set of primes. I should also point out 
that Knuth discusses methods of fac- 
toring primes in the book that I refer- 
enced in my article. 

Next let me address remarks by Mr. 
Evenden. He states that RATFOR and 
FORTRAN are dinosaurs. Let me 
paraphrase Sam Clemens: The an- 
nouncement of FORTRAN’s death is 
premature. All languages have their 
pros and cons; FORTRAN, Pascal, C, 
etc., are no exceptions. I do not want to 
get into a debate over what language is 
best, but just want to say that lan- 
guages are tools and any tool can be 
misused. I can just state that RAT- 
FOR/FORTRAN was what I had avail- 
able at the time. Besides, FORTRAN is 
still the mainstay of the scientific and 
engineering community, good or bad. 

He has submitted some C source 
that shows division/mod-less opera- 
tions for the Multiple Precision Add/ 
Subtract Algorithm implementation. I 
stated that all of the routines could 
certainly be improved. I thank him for 
his improvement and I welcome other 
suggestions. 

He is correct that a typographic er- 
ror exists in the Multiply Algorithm at 
step M5 (March 1984 DDJ, page 19). 
Instead of i=~i-i it should read i=j—1. 
In addition, he is absolutely correct in 
a strict mathematical sense that 
INT(x) is not equivalent to FLOOR(x). 
However, as he States, it is true for 





non-negative integers (natural num- 
bers). I pointed out that all of the 
mathematics of the RSA system would 
be limited to natural numbers, thus its 
equivalence in this case is valid. 

Since I’m writing, I'll mention the 
few additional errors I have found. In 
Part I (March 1984), there is an un- 
derscore missing at the end of a line in 
Figure 1, page 17. The line (somewhat 
abbreviated) should read: ‘“‘long- 
line =variablel*(cos( ... )+vari- 
able4* _””. Also, in Figure 2b the 
‘‘__ or —”’ should have come after the 
line “= 16 mod 7 = 2”, not before. 

There are also three code alignment 
problems. In Part I, the nine lines of 
code at the top of page 36 (Listing 
Four) should be moved right one tab 
position so that the line “carry=0...” 
aligns with the line “idxn2=len2....” 
Additionally, the top four lines on page 
38 (Listing Four) should be moved 
right two tab positions so that the 
brace in line four of that page is in- 
dented from the “else” that follows it. 
In Part II (April 1984), the code block 
at the bottom third of page 57 (Listing 
Eight) which reads “do idx=1,8 # 
convert lower case to upper case”’ 
should be moved right one tab position 
to align with the line ‘“read(CON- 
SOEE SOO). 57 

I hope this information helps. 

Yours truly, 

Charles E. Burton 
1720 S. Deframe Ct. 
Denver, CO 80228 


BB 
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Still Fixing Bugs 
The Hard Way? 


Ready to take the sting out of 
debugging? You can with 
Pfix86™ and Pfix86 Plus™, the 
most advanced dynamic and 
symbolic debuggers on the 
market today for PC DOS and 
MS-DOS™ programmers. 

What other debugger offers 
you an adjustable multiple- 
window display so you can view 
program code and data, break- 
point settings, current machine 
register and stack contents all 
at the same time? And, an in- 
line assembler so you can make 
program corrections directly in 
assembly language. Plus, pow- 
erful breakpoint features that 
allow you to run a program at 
full soeed until a loop has been 
performed 100 times, or have 
the program automatically jump 
to atemporary patch area. 

Or maybe you re tired of 
searching through endless piles 
of listings for errors? With Pfix86 
Plus you won’t have to. You can 








locate instruction and data by 
the symbolic name and using 
the symbolic address. Handle 
larger, overlayed programs 
with ease. And, Pfix86 Plus is 
designed to work with our 
Plink86™ linkage editor. 

But that’s not all. With a single 
keystroke you can trace an in- 
struction and the action will be 
immediately reflected in code, 
data, stack, and register win- 
dows. Pressing a different key 
will elicit a special trace mode 
that executes call and loop 
instructions at full speed, as 
though only a single instruction 
were being executed. 

And you get an easily acces- 
sible menu that makes the 
power of our debuggers instant- 
ly available to the new user, but 
won't inhibit the practiced user. 

So, why struggle with bugs? 
Pfix86 by Phoenix. Pfix86 $195. 
Pfix86 Plus $395. 

Call (1) 800-344-7200, or write. 


Phoenix Software Associates Ltd. 
1420 Providence Highway Suite 260 
Norwood, MA 02062 

In Massachusetts (617) 769-7020 


Pfix86, Pfix86 Plus and Plink 86 |are trademarks of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation 
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Use ALL the Power of Your 
MS-DOS, IBM PC-DOS, or CP/M-80 System 
with UNIX-Style Carousel Tools 


CAROUSEL TOOLS are a proven set of over 50 programs 
designed to be used with pipes, redirected I/O and 
scripts. In the style of UNIX each Tool does one thing 
well, and the Tools can be used together to do more 
complex tasks. 


YOU ACCOMPLISH MORE using Carousel Tools: better 
programming and documentation support, simpler 
data and file housekeeping, more general file 
handling. 


TOOLS FOR PC/MS-DOS 2.x AND CP/M-80 are available 
now. The DOS ToolKit is $149. The CP/M ToolKit is $249 
and includes a shell to provide pipes, redirected I/O, 
and scripts. Source code is available for $100 more. 


ch “CP/M” “MS-DOS” <doc >newdoc 


diff newdoc doc | more 
ed newdoc ORDER YOUR TOOLKIT TODAY. 


kwic newdoc | sortmrg | unig | unrot >index 
make -f makdoc ndx CALL OR WRITE: 


Carousel Tools and Carousel ToolKits are trademarks of Carousel 


MicroTools, Inc. CP/M is a trademark of Digital Research; IBM is a yy CARO U > E L M | CROTOO LS , l NC ° 


trademark of International Business Machines; MS is a trademark of 


MicroSoft; UNIX is a trademark of Bell Laboratories. 609 Kearney Street, EI Cerrito, CA 94530 (415) 528-1300 





Circle no. 13 on reader service card. 


DR. DOBB’S CLINIC 


by D.E. Cortesi 


The Missing RAM -drive 


In April we passed along Malcom 
Fordham’s request for help. He uses 
CP/M-86 on an IBM PC and wanted to 
set aside some of the PC’s storage for a 
RAM drive, but he couldn’t find the 
software to do it. 

Well, it turns out that the answer 
was right there in his own system. U. 
Thier of Bloomfield, CT, wrote to 
point out that CP/M-86 for the PC, as 
shipped by Digital Research, contains 
support for a RAM drive. We and 
Fordham had overlooked it because 
setting up the RAM drive is a function 
of the SETUP command. That com- 
mand is documented only in the “Re- 
lease Note,” an unimposing little pam- 
phlet at the back of the manual binder. 

The Release Note looks like some 
kind of techie’s afterthought, and quite 
a few users of CP/M-86 probably have 
never looked into it. That’s unfortu- 
nate, because only there does one learn 
how to do such useful things as: 


e Setting a command line that will be 
executed at power-up (you could set 
the line “submit profile,’ for example) 
e Saving the configurations of the seri- 
al ports and function keys so you don’t 
have to reset them after a cold boot 

e Changing the disk step-rate, thus 
speeding up the system quite a bit 

e Installing a special device driver 


And, of course, setting the base ad- 
dress and size of a segment of storage 
to be used as drive M:. If you use CP/ 
M-86 on the PC, take a close look at 
that Release Note and the SETUP 
command it describes. 


What Day Is This? 


This column started out three years 
ago (good grief, is it that long?) with a 
discussion of calendar algorithms. Ap- 
parently the message didn’t get 
through to somebody (sigh, nobody lis- 
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tens to us), because Glenn Roberts of 
Knoxville, TN, has written to tell us of 
a calendar error in Lotus 1-2-3. 

‘“T am always surprised how many 
sophisticated programmers do not 
really know the rules of the calendar,” 
Roberts says. ““Webster’s New World 
Dictionary defines the Gregorian Cal- 
endar as follows: 


a corrected form of the Julian calen- 
dar, introduced by Pope Gregory XIII 
in 1582 and now used in most countries 
of the world: it provides for an ordi- 
nary year of 365 days and a leap year 
of 366 days every fourth even year, ex- 
clusive of century years, which are leap 
years only if exactly divisible by 400. 
[emphasis added | 


Thus the year 1900 was not a leap year 
(even though it is divisible by 4), but 
the year 2000 will be. 

“The lack of understanding of this 
simple set of rules has shown up as 
bugs in some programs. Lotus 1-2-3, 
for example, contains a built-in func- 
tion @DATE, which handles the years 
1900 and 2000 incorrectly. For 1900 it 
thinks there is a February 29th, while 
for 2000 it thinks there isn’t one—just 
the opposite of the truth. The internal 
representation of the date maintained 
by Lotus is supposed to be the number 
of days since December 31, 1899; how- 
ever, it is actually one more than this 
for dates between 3/1/1900 and 2/29/ 
2000.” 

Roberts goes on to say that it would 
be interesting to hear of other popular 
programs with calendar bugs. We 
think so, too. 


@Iin-, Out-, and Throughput 


R. C. Wagner, of Indecipherable, CA, 
wants to know what exactly we mean 
by “‘a throughput of x bytes per sec- 
ond,” a phrase we used last November. 
It’s a good question. We’ve never seen 
a formal definition but rather intuited 


the meaning of the word “throughput” 
from the contexts it appears in. Now 
that Wagner made us think about it, 
the idea has some holes. 

Given a program whose input is 
from, and output is to, secondary stor- 
age (tape or disk) and given the need to 
say something meaningful about its to- 
tal performance, you have two choices. 
You can talk about its elapsed run- 
time, but you always have to qualify 
that with the quantity of input (or out- 
put) data it processed in that run. You 
have to say something like: “It took 34 
seconds to process a 73-kilobyte input 
fite:"; 

It’s clearer to talk instead about the 
program’s “throughput,” meaning 
nothing more than the quantity of data 
it processed divided by the time it took 
to process it. That yields a figure of 
kilobytes per second. It’s a simple mea- 
sure and one that allows another per- 
son to project how long the program 
would take to process a file of some 
other size. 

Well, maybe. When you really think 
about the idea, you realize that it rests 
on a lot of unstated assumptions that 
might not be true. Let’s examine some 
of them. 

First, throughput includes input 
time, output time, and all the process- 
ing in between. Since input, output, 
and processing all contribute to the to- 
tal runtime, throughput measures the 
program’s gross behavior. But it 
doesn’t say anything about which of 
the three parts dominates. If the pro- 
gram is too slow (do we ever worry 
about a program because it’s too 
fast?), knowing its throughput gives us 
no clue as to where to start looking for 
a bottleneck. 

Second, if the program does little 
processing, its input and output speed 
will dominate its throughput rate. I/O 
speed is often determined by factors 
external to the program—the operat- 
ing system, the device drivers, and the 
speed of the devices themselves. When 
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a throughput rate is quoted, the un- 
stated assumption is that these exter- 
nal factors are constant. Of course, 
they are only constant within a single 
system not between systems (as we will 
see very shortly). 

Third, there is an unstated assump- 
tion that the program runs in time that 
is a linear function of the quantity of 
data it processes; that is, if the amount 
of data is exactly doubled, the runtime 
will also exactly double. That’s proba- 
bly true of the I/O portions of the run- 
time but might be completely false as a 
description of the processing time. Pro- 
grams exist whose processing time is 
exponential in the quantity of data 
they process. It would be quite decep- 
tive to quote a throughput figure for 
such a program, since the “throughput 
rate” would change drastically with 
the amount of data—just the opposite 
of the accepted meaning. 

- Sort routines never have a linear 
processing time function, but that may 
not matter if sorting is only a small 
part of what a program does or if the 
sort time is very small relative to the 
I/O time. But many programs display 
nonlinear profiles when runtime is 
graphed against data quantity. Com- 
pilers, for example, may begin to spill 
their internal tables to disk at a certain 
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size of source program, with the result 
that their runtime graph has a distinct 
“knee” at that size of input. 

In short, “throughput” is a valid, if 
rough, measure of performance for 
programs that produce output that is 
proportional in quantity to their input 
and whose processing time is either in- 
significant or known to be a linear 
function of the amount of data pro- 
cessed. (That pretty well describes a 
typical utility program.) Even when 
these conditions are met, the problem 
of comparing the I/O environment 
remains. 


@Iinto the Lab 


After writing that insightful commen- 
tary, we decided to see if we really 
knew what we were talking about. By 
good fortune, we have access to three 
systems that run identical software but 
have very different hardware. One is 
an S-100 system with 8-inch disk 
drives; one is a TRS-80 model 4P; and 
the third is an Apple Ile with Ad- 
vanced Logic Systems’ CP/M card. All 
three run CP/M Plus and have Z80 
CPUs, but the Apple’s CPU runs at 6 
MHz while the others run at 4 MHz. 
On each machine we set up a series 
of ASCII files of different sizes. Then 
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we copied the files with PIP and mea- 
sured the time it took to copy each file 
on each machine. The copies were 
from one drive to the other. Program 
load time was not measured; in each 
case PIP was called with no arguments, 
and only the copy time was measured. 
After each measurement the output 
file was erased, so every output file 
started at the same place on the output 
disk. However, the input files were 
built from smallest to largest, so they 
started at different tracks (the largest 
starting farthest from the directory). 

The figure (below) summarizes the 
results. As you can see, each machine’s 
times plot out as a good approximation 
to a straight line. (That verifies that 
hypothesis that PIP’s processing time is 
a linear function of the amount of data 
it handles — no great surprise.) The 
slope of a line is the throughput rate 
for a PIP copy in that hardware 
environment. 

The table (page 19) lists the mea- 
sured times, along with the throughput 
rate that would be calculated from 
each measurement in isolation. Exam- 
ine these numbers and you'll discover 
some pitfalls to measuring throughput. 
The calculated throughput for small 
files bears little resemblance to that for 
larger files. In fact, the linear functions 
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that show up so clearly in the graph 
aren't obvious in the numbers of the 
table at all. The best-fit straight line 
for each machine seems to approxi- 
mate most closely to the calculated 
throughput for a 32-kilobyte file. 

There’s a lesson here. We’ve said be- 
fore that computer science is one of the 
few that allows precise, repeatable 
measurements, and there really is no 
excuse for making relative judgments 
without having the measurements to 
back them up. We were guilty of ex- 
actly that last November, when we 
cited a “throughput” value based on 
exactly one measurement—tsk, tsk. 

There’s also an idea lurking in the 
figure. Disk I/O time dominates so 
many things we do with personal com- 
puters, it would be nice to have some 
kind of disk I/O figure of merit with 
which we could compare one system to 
another. The throughput rate of a sim- 
ple file copy looks as if it might work 
for that purpose. 

Where would your machine’s line 
fall in the graph of the figure? Well, 
why don’t you take the measurements 
and find out? Remember, program 
load time isn’t included, just the time 
from entering the file transfer instruc- 
tion until the next prompt. On a CP/M 
system, that’s from pressing enter on 
“*b:=a:filename” through the next 
PIP asterisk prompt. On an MS-DOS 
system, it would be from pressing enter 
on “copy filename b:” until the next 
system prompt (since the MS-DOS 
copy command is built in). 

If enough people send in measure- 
ments like those in the table, we’ll pub- 
lish an amalgamated graph. As a way 
of comparing day-to-day useful perfor- 
mance, it would be a bit more mean- 
ingful than the Sieve of Eratosthenes. 

By the way, R. C. Wagner’s ques- 
tion, which started all this, was written 
in the comment space on a Reader Ser- 
vice card. That’s great! Any communi- 
cations medium that gets more input 
for this column is okay by the Intern— 
although if you enter the First & Last 
Annual ZOSO Sound-Alike contest 
that way, you’re going to have to write 
awfully small. BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 
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experts have 
done it again! 


512Kbyte SemiDisk with SemiSpool 


$1095 


Time was, you thought you couldn't 
afford a SemiDisk. Now, you can’t 
afford to be without one. 


256K 512K 1Mbyte 
SemiDisk I, S-100 $895 $1095 $1795 
IBM PC $1095 $1795 
TRS-80 Md. II, CP/M $1095 $1795 
SemiDisk II, S-100 $1395 $2095 
Battery Backup Unit $150 
Version 5 Software Update $30 


Time was, you had to wait for your 
disk drives. The SemiDisk changed 
all that, giving you large, extremely 
fast disk emulators specifically 
designed for your computer. Much 
faster than floppies or hard disks, 
SemiDisk squeezes the last drop of 
performance out of your computer. 


Time was, you had to wait while your 


data was printing. That’s changed, too. 
Now, the SemiSpool print buffer in 


SEMIDISK SYSTEMS, INC. 


P.O. Box GG_ Beaverton, OR 97075 = (503) 642-3100 


Call 503-646-5510 for CBBS®/NW, a SemiDisk-equipped computer bulletin board. 300/1200 baud 
SemiDisk, SemiSpoo! Trademarks of SemiDisk Systems. CP/M Trademark Digital Research 





our Version 5 software, for CP/M 2.2, 
frees your computer for other tasks 
while data is printing. With a capacity 
up to the size of the SemiDisk itself, 
you could implement an 8 Mbyte 
spooler! 

Time was, disk emulators were afraid 
of the dark. When your computer was 
turned off, or a power outage 
occurred, your valuable data was lost. 
But SemiDisk changed all that. Now, 
the Battery Backup Unit takes the 
worry out of blackouts. 


But one thing hasn't changed. That’s 
our commitment to supply the fastest, 
highest density, easiest to use, most 
compatible, and most cost-effective 
disk emulators in the world. 


SemiDisk. gt! 
It’s the disk the others are, trying to 
copy. A 


NO WAITING 


Circle no. 63 on reader service card. 
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CP/M EXCHANGE 


by Robert Blum 


Searching for the right tools to fill your 
program development tool chest can be 
an exhausting experience; not to men- 
tion the damage to your wallet if you 
make any wrong decisions along the 
way. Fortunately, when looking for the 
right assembly language development 
package you will not have to contend 
with nearly as many competing pack- 
ages as in other application areas. 
Nonetheless, deciding which package 
best suits your needs may be more dif- 
ficult than necessary unless you first 
spend some time defining what your 
needs are and what those needs equate 
to in terms of dollars. 

Before you go to the local software 
store to get a demonstration of the 
packages that they carry I suggest you 
first contact several manufacturers of 
packages that look interesting to better 
understand what you should expect to 
get for your money. I make this sug- 
gestion because I think you will find 
that very few software dealers know 
anything about the type of product you 
are looking for. And in most cases, 
even if you are fortunate enough to 
find a dealer that actually has this type 
of software available for purchase, you 
will probably have to read the manual 
to figure out how to run your own 
demonstration. 


Getting Started 

Most assembly language development 
packages fall into one of two catego- 
ries. The under $50.00 package is 
aimed at the hobbyist or the infrequent 
assembly programmer. These pack- 
ages are usually limited to an assem- 
bler that will accept Intel 8080 mne- 
monics and possibly extensions for the 
Z80. Occasionally one can be found 
that also offers the Zilog set of mne- 
monics for the Z80. On the opposite 
end of the spectrum is the commercial 
package priced at upwards of $150.00 
or more. Packages of this type usually 
offer a large number of convenience 
features that mainly appeal to the sys- 
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tem developer or systems house. In- 
cluded in a package of this type you 
should expect to find at least a macro 
assembler that recognizes several mne- 
monic dialects and a linkage editor to 
be used in combining separately as- 
sembled subroutines. You may also 
find some useful utilities such as a 
cross-reference program. 

My own experience in finding the 
right assembly language development 
package has ranged from downright 
horror to moderate satisfaction. Al- 
though I must qualify that statement 
by saying that by the time microcom- 
puters first appeared I had already 
been spoiled by over 10 years of experi- 
ence with IBM’s mainframe macro as- 
sembler. Since that time my satisfac- 
tion with it has not wavered and I 
continue to use it as my basis for com- 
parison. Don’t let the word “main- 
frame” unduly influence your 
thoughts; I am not about to begin com- 
paring apples to oranges. 


In the Beginning 
To put things into the proper perspec- 
tive: I was introduced to IBM’s macro 
assembler on a 32K 360/30. For those 
of you who have a mainframe back- 
ground, thoughts of this grand old ma- 
chine will undoubtedly bring back 
many fond memories. The standard 
macro assembler included at no charge 
with this machine required only a 14K 
partition of memory to run. If more 
memory was available it would be 
used, but only this minimal amount 
was necessary. If the machine you 
were using was blessed with a full 64K 
of memory, a 44K variant of the 14K 
assembler could be used. Both assem- 
blers offered identical features, only 
the 44K version executed three or four 
times faster because fewer overlays 
were used and more memory was 
available for table space. 

Through the years this same assem- 
bler has been transported from genera- 
tion to generation of IBM computer. 


With the exception of the additional 
instructions added with each new gen- 
eration of processor, the assembler as I 
knew it has been retained. Certainly 
this longevity speaks highly of the orig- 
inal design and its acceptance by the 
user community. 3 

Don’t be surprised if the way I have 
described the 360/30 sounds similar to 
your microcomputer. The 360/30 CPU 
was almost as powerful as a 4MHz 
Z80, and the only area in which the 
mainframe surpassed today’s micro- 
computer was in the power of its I/O 
system. 

I have used a number of different 
assembly language development pack- 
ages marketed by both large and small 
companies. Many of them offered an 
excellent value for the price, and a few 
offered some very exciting, unique fea- 
tures. However, none of them have 
even come close to satisfying my.desire 
for the powerful and flexible macro fa- 
cility I had become accustomed to. 
Practically all of the macro assemblers 
I have looked at use the Microsoft 
macro format as a starting point. Any 
additions are then made around that 
standard. I have nothing against the 
Microsoft macro format, as far as it 
was taken. I simply think that it was 
considered complete long before it had 
matured. 

Nonetheless, I was unable to find 
anything better than M80 and out of 
desperation chose it for my assembler. 
Actually, my choice was not quite as 
difficult as I make it sound. M80 is 
provided as part of a utilities package 
that is included at no extra charge 
when you purchase other Microsoft 
language products. Since I couldn’t 
find anything better than M80 and ob- 
viously couldn’t beat the price, my de- 
cision was easy. 


Something New 

At CP/M 83 I had the pleasure of 
meeting Steve Russell, the S and R of 
SLR Systems. Steve was proudly ex- 
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hibiting his two latest creations, 
Z80ASM and Z80LNK. Both are in- 
cluded in an assembly language devel- 
opment package that was purported to 
be six times faster than M80. I am not 
a foreigner to M80, and I have never 
been willing to accept at face value 
what appears to be an outrageous ad- 
vertisement, so I asked Steve to send 
me a review package. After some con- 
versation he asked me if I would have 
any interest in serving as a Beta test 
site for Z80ASM after he had added a 
few more features to make it compati- 
ble with M80. I couldn’t possibly turn 
down an offer like that and I left the 
show questioning Steve’s conviction 
that Z80ASM actually executes six 
times faster than M80. Don’t get me 
wrong; I’m not suggesting that M80 is 
fast, just that a speed improvement of 
two or three times would have been 
more believable. 

Around the first of the year the UPS 
truck stopped to drop off an unexpect- 
ed package. To my surprise it was from 
SLR Systems. I had totally forgotten 
about Z80ASM and my conversation 
with Steve. Opening the package re- 
vealed a three-ring binder of documen- 
tation and two disks. The first disk 
contained the assembler, linkage edi- 
tor, and installation programs. The 
other disk contained a number of sam- 
ple source programs to be used in test- 
ing the assembler. 


Egg on the Face 

While furiously thumbing through the 
documentation to find the instructions 
for installing the assembler, I began to 
chuckle about how easy I thought it 
was going to be to disprove the adver- 
tising claims made about Z80ASM. A 
few minutes later I had finished con- 
figuring the assembler for my system 
and was ready to run my first test. 
Rather than using one of the sample 
source programs included with 
Z80ASM I chose to use one of my larg- 
est programs. 

In my haste to get started I had not 
taken time to thoroughly read the doc- 
umentation; I ended up blindly speci- 
fying every runtime option that looked 
meaningful. With my stopwatch in 
hand and a smirk on my face I pressed 
the return key and anxiously waited 
for something to happen. And happen 
it did! After only a few seconds a mes- 
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sage was displayed on the CRT sug- 
gesting that the first pass was now 
complete and that the second pass 
through my program was now in prog- 
ress. My first thought was that some- 
thing must have gone wrong because I 
couldn’t believe that the assembler had 
completed the first pass this quickly. I 
began to feel a little better when the 
assembler appeared to be running the 
second pass much more slowly. 

After 25 seconds the end-of-job sta- 
tistics were displayed on my CRT and 
control was returned to CP/M. After 
making a note of the elapsed time tak- 
en by Z80ASM I ran the same source 








If you own a CP/M compatible 
operating system, you’ve had to put up 
with the mistakes and quirks of 
someone else’s programming. Until 
now. Now you can see the light with 
MRS/OS. In fact, MRS is a full operating 
system designed to replace CP/M 2.2 
or CDOS and it comes with complete 
source code. MRS is designed for Z80 
processors, runs CP/M software, and 
can interface directly to a CP/M BIOS, 
saving you a lot of sysgen time. 


















Orders: 9 am- 10 pm EST 
Tech. inquiries: 7 pm - 10 pm EST 
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With the MRS/OS Source Code, you can see the light. ‘ 





CP/M is a registered trademark of Digital Research Corp. CDOS is a registered trademark of Cromemco Corp. 


program through M80. At the conclu- 
sion of the M80 assembly I was satis- 
fied with my suspicion that the claims 
made about Z80ASM were indeed 
overstated because M80 took only a 
little over twice as long as Z80ASM. 
What I didn’t realize was that specify- 
ing all the runtime options for 
Z80ASM commands the program to 
also create an output listing file includ- 
ing a cross-reference and symbol table. 
Because I had used one of my largest 
programs for the test, a listing file of 
over 160K had been created in addi- 
tion to the normal .SYM and .REL 
files. I was suddenly a little more seri- 






All this for under sixty bucks. 


With MRS, you get more than what 
you pay for. For under sixty dollars you 
receive fully commented source code 
for standard and extended BDOS func- 
tions, a sample BIOS, our all-in-one 
utility package and a 150 page manual. 

So if you’re tired of being in the dark 
with some other guy’s program, here’s 
the answer to your prayers. 


$ 5 Y ? : complete 


(includes shipping & handling in 
N. America; overseas add $12 ) 
Mass. orders include 5% sales tax 
8 
INC 16 Bowman Lane 
* Westboro, MA 01581 


(617) 366-8969 
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hether your mailing list, account- 

ing package, DBMS, or other end- 
user application is currently under 
development or already on the market, 
you've probably discovered that ex- 
ternal sorting can be a difficult, costly, 
and time-consuming headache. Es- 
pecially in today’s floppy - disk storage 


It's a headache, of sorts. 


EAMSORT™ runs under CP/M-80%, 
CP/M-86*, MS-DOS’ and PC-DOS, 


supports multiple-volume files, ASCII, 
Microsoft .RAN, and dBASE II* .DBF 
file formats, and interfaces to all major 
languages. Custom interfacing, operat- 
ing environments, and file formats 
are available. 
















environment. 

hat about performance? 

BEAMSORI™ runs SuperSort*’s 
own benchmark faster than SuperSort* 
does! It’s amazing, but don’t take our 
word for it. Write us on your company 
letterhead for our OEM evaluation kit. 
You must see this for yourself! 


For fast relief. 


hat’s why we. developed 

BEAMSORT™”, the revolutionary in- 
place OEM sorting module. The older 
algorithms eat up valuable space on 
your user's often over-crowded disk- 
ettes. By installing BEAMSORI™ you 
get today’s technol- 
ogy at a fraction of 
it’s true develop- 
ment cost, and 
you've got one 
less problem to 












Phlexible Data Systems, Inc. 


3017 Bateman Street, Berkeley, CA 94705 
(415) 540-7181 


*CPM, MS-DOS, dBase II, and SuperSort are trademarks of Digital 
Research, Microsoft, Ashton-Tate, and Micropro, respectively. 
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Discover how easy programming can be with DataBurst:” 

YOU A unique runtime screen processor and source program 
e generator, DataBurst™ will decrease your program develop- 

ment time and increase the value of your application programs. The unique 


DataBurst™ screen editor provides fast, easy screen design. Program inde- 
pendent screen formats reduce both development and maintenance time. 


During execution of your program, DataBurst™ controls all user interaction 
through one assembly language interrupt service routine, requiring as little 
as 14K of memory. A true full-screen processor, DataBurst™ allows unlimited 
design complexity, and brings a mainframe advantage to your IBM® PC. 


DataBurst™ is available through your local computer retailer or directly from 
Key Solutions, Inc. To order directly, please send check or money order for 
$225* to Key Solutions, Inc., P.O. Box 2297, Santa Clara, CA 95055. Additional 
language support (BASIC Compiler and C Compiler) is available for $40! 
(Please inquire about release dates for other language interfaces). 


*In California add 
applicable sales tax. 


IBM“ is a registered trademark of IBM Corporation. 
DataBurst™ is a trademark of Key Solutions, Inc. 





©Copyright 1984 Key Solutions, Inc. 


The Design Tool for the 
Creative Programmer 
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ous about running a complete bench- 
mark after realizing that all of this 
processing had taken place in 25 sec- 
onds. To complete the test with fair- 
ness [ ran the cross-reference program 
provided with M80 and directed its 
Output to disk. I then added the run- 
time of the M80 assembly to that of 
the cross-reference program to get an 
overall total. | 

When I compared the two runtime 
totals I discovered that my suspicions 
were ill-founded and that SLR Systems 
had not overstated the performance of 
its product. Straight out of the box I 
achieved the claimed sixfold runtime 
reduction. 

Next month I will talk more about 
how Z80ASM does its job. 


Expert Marriage Counseling 


I won’t be telling you anything new 
when I point out that some incompati- 
bilities exist between CP/M 2.2 and its 
successor, CP/M Plus. Dave Cortesi 
and I have commented on this in past 
columns, but both of us failed to pro- 
vide any solution to the problem. For- 
tunately, Mike Griswold of Fort 
Worth, Texas, took the bull by the 
horns and wrote a Resident System 
Extension (RSX) that translates ver- 
sion 2.2 BIOS calls to those compatible 
with CP/M Plus. 

After keying it in and correcting the 
errors that I introduced, I attached it 
to the public domain DU program. I 
chose this program to test with because 
I am familiar with its operation and 
the reason it fails when run under CP/ 
M Plus. As Mike reported, DU now 
works perfectly, as do several other 
programs that I had shelved because of 
compatibility problems. 

The full text of Mike’s program can 
be found in the listing on page 23. It is 
a great piece of code that is an absolute 
necessity in warding off many of the 
mysterious conversion pains likely to 
occur when going from version 2.2 to 
CP/M Plus. 


Editor’s note: Interested readers may 
also wish to consult the article on us- 
ing RSXs under CP/M Plus, elsewhere 
in this issue. BB 
Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 
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CP/M Exchange Listing  ctext begins on page 20) 


-ag 


title CP/M 2.2 BIOS REX? 


: LaJarn84 By Mike Griswold 
5 | 
: This RSX will preavide CP/M 2.2 compatible BIOS suppoart 
: for CP/M G.x. Primarily it performs logical sector 
: blocking and deblecking needed far same programs. 
: M11 actual 1/0 is deme by the CP/M 3.@ BIOS. 
maclib  z&@ ; 288 aepcade equates 
csey 
3 
: This equate is the only hardware dependent value. 
: It should be set te the largest sector size that 
: will be used. 
3 
maxtsectartésize: SCQuU {a4 
5 
* 
: RSX prefix structure 
4 
db 2,2, 2, 2, 2, 2 
entry:  jimp beat 
next s db Imp . 7p 
clw Zi s next module in line 
prev & dw Zi s previous module 
remove: db ZF Th : remave flan 
reanbriks db Z 
dis ‘eigse.<c1" 
db Zi, Zi, 2 
3 
: Alion jump table on next page baundary. This is needed 
; for programs that cheat when getting the addresses af 
: BIOS jump table entries. Optimization freaks could mave 
: game code up here. With a 6@K TPA theugh its hard to 
5 net excited. 
5 
dis ceo 
bd 
. BIOS Jump Tabie 
cht : jmp whaat ¢ cold baat entry 
wht : amp wocent ys warm boat entry 
jmp xoanSst : comscle status 
jmp XO ; conmsale input 
imp KemaUt s camsale cutout 
qrap xlist 3; list autput 
jmp HAUK CLUE 5 aux device cutout 
amp KAUX LY ; aux device input 
mp home » hame disk head 
jap seldsk : select drive 
jmp settrk : select track 
qip setsec * select sectar 
gmp setdma s set dma address 
amp read ; read a sector 


(Continued on page 26) 
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CP/ Mi Exchange Listing (Listing Continued, text begins on page 20) 


Jrmp 
JM 
gmp 


RS SR see -BE «ee AS 


Xwoeet: Imp 
Xcanst : jmp 
XCM! jap 
XCOVGUE SMP 
xLists: jmp 
HAUXGUT E Mp 
XAUKTYE JM 
Jhip 
vd FAR 
arp 
jmp 
amp 
J fff 
Jp 
xlistst simp 


ionen: db 


Caled 


{J on -~2e -as ff] -xe re wxe 


a 
a 
ck 
as 


push 
push 
push 
push 
xi 
shiid 
call 
lhid 
shld 
ixi 
xi 
ldir 
Lx 
shid 
Lei 
call 
DoD 
Pon 
Pa 
Pap 
Jmp 


‘ 
; Warm 
: 
Ww 


beets Ihid 


write 
Xlistst 
SECA 


Zi 


iz 


2 
“i 
id 


Signer messace 


Bf Re 


ss 
a 


4 


Zidh, Zahn, * RIOS ver 


Dot 


psw 
Kh 

cl 

5 

hy next 
entryti 
amit 

i 
cldtaddr 
d, xwhaot 
b, 15*3 


h, wot 

i 

Hh, Silane 
primis y 

i 

d 

Is 

DsSw 

nmext 


boat 


midtaddr 


82 -28 


“2G HS «ng ‘88 «ma -28 


8 


a8 aS 


2 @ 


as 


write a secter 
list status 
sectar translation 


The CP/M 3.@ BIOS jump table is copied here 
tc allow @asy access to its routines. 
I/O routines are potentially in banked memary 
sc they canmot be called directly. 


The disk 


warm boat 


2.21 ACTIVE’, @dh, fah, a 


&@ BDOS call is in prooress 
sa save CPU state 


raw bypass this RSX on 

all subsequent EBDOS calls 
initialize BIOS variables 
save the CP/M 3.4 BIOS aumo 
at locatican @a 

set uo toa mave jumo table 
byte caurmt 


substitute rew jumo address 
saund aff 


restore HBDOS call state 


Carry or 
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See cee HE oe 4Re 


shid 1 ; restore normal BIOS address 
amp Zi s jump ta CP/M 3.4 warm baot 


Initialize BIOS internal variables for cold baat 


Ka Aa 

sta hstwrt ; host buffer written 
Sta hetact s hast buffer inactive 
£4 h, 82h 

shic dmaadr 

ret 


Routine ta call banked BIOS routines via BDOS 
function S@. ALL disk I/O calls are made threaugh 
here. 


sta biespb ; set BIOS functiar 

mv i c, 38 : @irect: BIOS. call. Tunetion 
Lxi d, bieaspb ; BIOS parameter black 

amp riext s gumo tea BDOS 

db 2 . BOS: function 

db a ; A register 

dw 2 » BC register 

dw a : DE register 

dw Zi ; HL register 


Home disk. 


lida hstwrt s check if pending write 
ara & 

crnz writehst ; dump buffer ta disk 
XA S 

sta hstwrt ; buffer writter 

sta hstact s buffer inactive 

sta Lnacnit 5; zera alloc caunmt 

sta Sekt rk s gera track count 

sta sektrk+] 

ret 


Select disk. Create a fake DPH for programs 
that might use it. 


racy a,c : requested drive rnunber 
sta sekdsk 

sta bereg > set C reg in BIOSPR 

my 4 a, 3 » BIOS function number 
call xbias : CP/M 3.4 select 

iad a,h 

ara ] : check far HL=4 

r= ; select errar 

rcv @, : net address af xlat table 
ix A 

meoay d,m 

xCNG 

shid xlat ; Save xlat address 

1x1 hh, il ; offset te dob address 
dad cd 

Mav e, ™ : fetch address af dpb 


(Continued on next page) 
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CP/M Exchange Listing (Listing Continued, text begins on page 20) 


11x 
May 
xcho 
shid 
fHidcaey 
sta 
11x 
ivtx 
1vix 
oy 
sta 
1xi 
dad 
mony 
sta 
ixi 
ret 


by CP/M 


fy os «as ome -e was 


0 
a. 


@qu 
Chw 
ds 
cis 
dpb: ds 
ds 
ds 


ae RS «ne 


settrk: sbec 
ret 


Set dma. 


etdmas sbcd 
ret 


Translate sectors, 


h 
d,mm 


dob 
a, 
sot 
h 

h 

hy 
&, mM 
bes 
ate 
cl 

— 
psh 
hy, ciph 


f.c programs. 


fu fo fo fu © & 


Set track. 


sekt rk 


draadr 


“2G +e ae 2 -us 


2a «mE 


ma 


BE .Bk (RH «nm Ra 


address of dpb 
com sectors per track 


point ta bleck shift mask 


save black shift mask 
effset ta osh 


Save physical shift factor 
return DPH address 


This fake DPH holds the addresses of the actual 
DPE, The CP/M 3.@ DPH is *not*® understoaad 


na translation 
scratch words 
directoary buffer 
DPR 

CSV 

RLV 


Sectars are not translated yet. 


Wait until we know the physical sector number. 
This works fine as long as the program trusts 

the BIOS ta de the translation. Some Droaorans 
access the XLAT table directly te doa their own 


These pregrams will get the wreng 


idea about the disk skew but it should cause rm 


harm. 
ectraritmnav 


may 
ret 


eBtsec: mov 


: 
. 
; 
‘ 
5 
5 
: translation. 
5 
* 
3 
" 
3 


até 
4H 


Set sector rumber. 


a,c 


4 


return sector in HL 


(Continued on page 30) 
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——— PRESENTING 
The first compiler for dBASE IT 







COMPILER" 







WordTech gems is proud to announce the firs jem Coys 
dBASE II®. And we are introducing it with a speci4 r. 


> INDEPENDENGE-— > 


Now you can write compiled, efficient programs that will execute 
independently of dBASE II, and without RunTime®. 


——-NQ LICENSE FEES 


You only buy dB Compiler™ once. You may compile as many 
applications as you wish, FOREVER, with no additional fees. 


SPEED 72 


Application programs are compiled into low level code and only 
include program functions that are absolutely necessary. 


SECURITY 


Compilation is far better than encryption for protecting your 
programming insights and procedures. 


PORTABILITY 


Using dB Compiler’s cross-linkers you can use one development 
system to generate code for various target environments. 


Suggested retail price: $750; additional target modules: $350 


Special Offer: Compiler and an additional target module: $750 
Offer expires 7/15/84. Corp/ multi-user licenses available. 


dqi6 COMPILER” 


WORDTECH SYSTEMS P.O. Box 1747, Orinda, CA 94563 (415) 254-0900 


dBASE II, RunTime® Ashton-Tate 
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CP/M Exchange Listing  cisting continued, text begins on page 20) 


“~ 22 -mm +e 


22 «see +e 


* 


write: 


EE °° +S 


3 
chkuna: 


30 


sta 
ret 


SeHKSEC 


Read the selected CP/M sectear. 


rive 
sta 
iyi 
sta 
mp 


Write the selected CP/M 


KPA 
Sta 
fi 
Sta 
ad 8 
urnz 


Write te 


ida 
Lyre 
sta 
lda 
Sta 
ida 
Sta 
lda 
sta 


lda 
ara 
ae 
der 
sta 
Ilda 
1xi 
cmp 
Arnis 
lda 
Lxi 
cinp 
arnz 
ida 
Lxi 
cmp 
rnz 
rr 
may 
1xi 
cmp 
ire 
lhid 
ivix 


a, 1 
readap 
a 
wrtype 
allac 


a 
readap 
A, 
wrtype 
= 


chkuna 
first 


brn 

a 
Lnacit 
sekdsk 
Linadsk 
sektrk 
Lniat rik 
seksec 
UnAaASec 


wracnit 
a 
allac 
a 
Lunacnt 
seakdsk 


age 


te «Ba «ag 


sector af 


BB ME «ee IB le et 


HR +22 «ye +t 


MN, unadsk 


rn 
allac 
sektrk 


He «Re 


A, unatrk 


mm 
atleac 
Ssekceac 


2G «xe 


hn, Unasec 


rm 
Aallec 
mi 

A, in 

h, spt 
Fi} 
noaay F 
unat rk 
h 


Me SE ome 


ae -Ra wne 


read caperatian 
a=o (wrual) 
treat as unalloc 
perform read 


sectcr, 


nat a read cneration 


Save write type 
unailoc black? 


unalloacated black. 


pet bleck shift mask 
adjust value 

unalloc record caurnt 

set up values far 

writing te an unallocated 
black 


any wunalloc sectars 
in this black? 

skip if neat 

uUnacit =uracnt — 1 


sekdsk = unadsk ? 
Skip if net 


sektrk = unatrk ? 
Skip if net 


Seksec = unasec ? 
Skip if neat 
mave ta next sectar 


addr af sot 


sector > spt ? 
Skip if no overflow 
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nay fs 


5 
alleacs 


§ 
YWODET § 


shift: 


shis 


noblks 


5 
nomatch : 


filhst : 


shid 
Xa 
sta 
KYA 
sta 
an 


KPa 
sta 
irr 
Sta 


Ka 
sta 
lda 
ara 
mov 


ida 
1xi 
1x1 
jre 
xcheg 
xh 
Pre 
grnc 
dad 
xchyg 
daci 
arid 
dyrniz 
xCNY 
Sta 
shid 
1xi 
ray 
iv i 
cra 
ee 
lda 
xi 
cmp 
Trr“e 
lda 
Lei 
crip 
rnc 
lda 
1x1 
cmo 


yz 


lda 
arta 
Criz 


lda 
sta 
lhid 


unatrk 
a 
UMASEC 
& 
rsflag 
rwoper 


a 
LuMacit 
a 
rseflag 


B 

erfilag 
posh 

a 

Db, a 
seksec 
h, hstouFt 
d, 128 
nmobl k 


3h i 
dj 


hy 
ws fh 
shift 


sekhst 
sekbuf 
h,hstact 
&, MH 

im, i 

a 

Ffilhst 
seHwdsk 
h, hstdsk 
rf 
namatecn 
sektrk 
h, hsttrk 
rt 
noamnateoh 
sekhst 
h, hstsec 
m 

match 


hstwrt 
a 
writehst 


sekcsk 
hstdsk 
sekt rk 
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“aR ae 


2 7S 


28 «22 «Ee aa 


“38 «ame 


Be EE 


“22 «HE «28 


“me 


22 


“ae 


bumo track 
reset sectar count 


den’t pre-read 
perform write 


requires pre-read 


farce pre-read 


ne errars yet 
net ohysical shift factor 
set flags 


logical sectar 
addr af buffer 


ma blecking 
shuffle registers 


bump buffer address 


double offset 
zera high bit 


HL=buffer addr 


buffer active flag 


set buffer active 
was it already? 
fill buffer if not 


same disk ? 


same track ? 


same buffer 7? 


buffer changed? 


Clear buffer 


(Continued on next page) 
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CP / Mi Exchange Listing (Listing Continued, text begins on page 20) 


shic heattrk 


ida sekhst 
sta hstsec 
ida rsflagq ; need ta read ? 
ara a 
Cn readhst : yes 
xa a 
Sta hstwrt ; no pending write 
match: Ilhld dmaacdr 
xchYg 
ihlid sekbuf 
ida readap s which way toa move 7? 
ara a 
irnz raMave ; skip if read 
mv i a, l 
sta hstwrt ; mark buffer changed 
xch s Hhi=dma cde=buffer 
: 
removes xi D, 128 5; byte cannt 
Loar ; bleck mave 
ida wrt ype s write type 








Q-PRO4 blows 


spread the word 


Have you heard? 


During the last 12 months, thousands 
of applications programmers dumped 
dBASE Il. 


Why? 


Because dBASE II hasn’t improved 
a lick in years. And that makes it a 
whole generation behind Q-PRO 4... 
the 4th generation applications 
development language for 
microcomputers. 


With dBASE Il, all the original bugs, 
complicated operations and absurd 
restrictions (like only two open files) 
are still there. dBASE II just can’t 
make it for applications in 1984. 







Circle no. 58 on reader service card. 
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con 1 


ta directory ? 


3 
grenz exit ; dene 
ida erflag s check for errors 
cyte A 
arma exit : doer’t write dir if se 
xra a 
sta hstwrt s show buffer written 
call writehst s write buffer 
exits lda erflac 
ret 
4 
: Disk read. Call CP/M 3.@ BIOS tea fill the buffer 
: with came ohysical sector. 
4 
readhst : 
call rwhinit s init CP/M 3.2 BIS 
mv i a, 13 s read function number 
call xHiaes 5; read sectar 
sta erflag 
ret 
4 
: Disk write. Call CR/M 3.4 BIOS ta write one 
: physical sector fron buffer. 
4 
writehst: 





Apparently, Ashton Tate (the dBASE II 
merchant) is gambling you don't 
know any better. It’s pitiful. 


Well, we've been blowing the whistle 
on Ashton...and Tate, too. 
And you can spread the word. 


Be one of the growing legions 
that’s moving up to Q-PRO 4... 
the complete 4th generation 
applications development system 
for microcomputers. 


You can use Q-PRO 4's super 
efficient syntax to finish business 
programs much faster. And the 
extensive error trap and help screen 
capabilities make the finished soft- 
ware products far more friendly, too. 
As one convert put it, ‘fQ-PRO 4 
has it all...the formatted data entry 
field edits, and report generator are 
absolutely superb. 
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‘Any applications programmer still 
struggling with outdated 3rd gener- 
ation data base managers Or worse, 
a 2nd generation language like 
BASIC is ripping himself off. ”’ 


So what are you waiting for? Here is 
your chance to dump all the dBASE II 
hassles and move up to Q-PRO 4... 
the sensational 4th generation 
language for faster, easier application 
development. 


You owe It to yourself, your career, 
and your family to move up to 
Q-PRO 4 now. It’s that good. 


Attention Q-PRO 4 Hotshots. 
Current version 3.0 includes Multi- 
key ISAM (true mainframe power). 


(Continued on next page) 


(BASE Il away 


Runs with PCDOS, MS-DOS, CP/M, 
MP/M, CP/M86, MP/M86, TurboDOS, 
MmmOST, MUSE, and NSTAR. 


Single-user—$595; Multi-user—$795. 
Author's lock up package available. 
Finished applications are freely 
transportable between operating 
systems. Multi-user with true record 
and file lock. 


For Q-PRO 4 demonstration, 
go to the nearest MicroAge store 
or other fine dealer. 


136 Granite Hill Court 
Langhorne, PA 19047 
(215) 968-5966 Telex 291-765 


CP/M, MP/M, CP/M86, and MP/M86 are trademarks of. Digital Research, TurboDOS, MmmOST, 
MUSE, NSTAR, MS-DOS and PCDOS are trademarks of Software 2000, TeleVideo Systems, 
0.S.M., Molecular, Microsoft and IBM, respectively. 


Quic-n-Gasi Products Inc. 
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CP 7 Mi Exchange Listing (Listing Continued, text begins on page 20) 


Catia rwSsiriit . trit CP/M 3.8 BLOGS 
my i a, 14 3; write function nunber 
call xbias ; write sectar 
sta erflag 
ret 

3 

§ Translate sector. Set CP/M 3.8 track, sector, 

: DMA buffer and DMA bark. 

9 

YwHivit s: 
ida hstsec s; physical sector number 
mea 1, a 
my i h, @ 
shld beren ; sectar number in BC 
lhid Xlat ; address of xlat table 
shid deren : xlat address in DE 
ravi a, 16 ; sectrn Function rumber 
call xblas ; get skewed sectar number 
Mav a, i 
sta act sec s actual sector 
shid bere 5; sector number in BC 
mvi a, il ; setsec Function number 
call xbias ; set CP/M 3.4 sector 
ihicd hsttrk s physical track number 
shld bcreq : track number in BC 
mv i a, 12 ; settrk function rnunber 
call Xx bias 
Lxi h,hsetbuf 5; sectar buffer 
shid here ;s buffer address in BC 
mvi a, 12 3; setdma function rnunber 
cali xHias 
iv i a, i : DMA bank nunber 
sta areg ys bank number in A 
mv i a, 28 ; setbnk function number 
call XK bios ; set DMA bank 
ret 


Print message at HL until null. 


ae we +e 
Oo 


prmsos  mav a, 
ara a 
rz 
Moy Cy, TH 
push hn 
call KCOMAUTE 
pop h 
trix a 
Imp prms cq 


disk iva buffer 


: 
hstoufs ds Mmax$sectorésize 


5 
3 Variable sterage area 
j 
sekdsk: ds i s logical disk number 
34 
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sektrk: 


~6hSBE@RK SEC: 


5 

hetdaks 
hsttrks 
het sec: 
3 

actsec: 
sekhst : 
hetacts: 
hstwrt : 


* 
fe 


unacnt : 
unadsk : 
unatrk: 
UMIASEC 
sektbufs 


4 
Sot: 
KXlat: 
bsms 
ph : 


5 

erflag: 
rsflag: 
readaps 
rwhiags: 
wrtypes 
dmaacr : 


oldaddrids 


s 
3 


ds 
ds 


me Teh 


ds 
ds 
ds 


ms FLT 


ds 
cs 
ds 
ds 


fa pe ft pak 


ds 
cls 
cls 
ds 
ds 


Tet pee fe pe 


css 
css 
ds 
ds 


Bete bet FEE fet 


ds 
css 
cis 
ds 
ds 
ds 


Par Pty ee ee ee Re 


end 


Elegance 


Power 


Speed 


€ Users’ Group 
Supporting All C Users 
Box 287 
Yates Center, KS 66783 


Circle no. 21 on reader service card. 
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“Zi «Rs 


“2S RS +B 


7s 


AS «Bo +s 


RS «28 +e 


22 +m 


“BSB -Mf «ze +e 


“88 +22 12s «HH «ee -te one 





legicai track number 
legical sector runber 


physical disk number 
physical track number 
physical sector number 


skewed physical sectar 
temo physical sectar 
buffer active flag 
buffer changed flag 


unallocated sector caunt 

unmalioac disk number 

unallac track number 

umalleac sector number 

leagical secter address in buffer 


com sectors per track 
Xlat address 

bleck shift mask 
physical shift factor 


errar reporting 
force sectar read 

1 af read cperatian 
physical read fiag 
write caperaticon type 
last dma address 
address af old BIOS 


End Listing 
ADVERTISE IN SEPTEMBER 


Dr. Dobb's journal 


SPECIAL 


Pia tr 


ISSUE 


Space Reservation Deadline July 13, 1984 


Materials Deadline July 20, 1984 


Contact: 
Walter Andrzejewski 
Alice Hinton 


DR. DOBB’S JOURNAL 
2464 Embarcadero Way 
Palo Alto, CA 94303 
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ne of the many new features of CP/M Plus is the 

ability to use a Resident System Extension (RSX). 

An RSX allows a programmer to extend or modify 
any BDOS function, as well as create new ones. To access the 
BDOS under CP/M, a program loads certain registers with 
parameters and makes a call to location 0005h. Stored at 
this location is a jump to the beginning of BDOS. After an 
RSX has been loaded, the jump instruction points instead to 
the beginning of the RSX. This allows the RSX to intercept 
all BDOS calls and to modify them as the programmer sees 
fit. One or more RSXs can be attached to an executable file 
using the CP/M Plus system utility GENCOM; they are load- 
ed at the same time as the program. 

The applications of an RSX may at first seem limited, but 
after you have written your first one the uses will seem end- 
less. The idea for my first RSX came about one day while I 
was playing Pacman on my computer. Every time the little 
guys moved, the terminal beeped, and there was no way to 
pause the program if I were interrupted. The answer was 
simple: I wrote a 37-line RSX that intercepted all console 
output calls (BDOS functions 2 and 6) and all console input 
calls (functions | and 6). 

When the program outputs a character, the RSX com- 
pares it with the bell character. If it is a bell, the RSX simply 
returns to the program; otherwise, it passes the call on to 
BDOS. When the program makes a console input call, the 
RSX makes a corresponding console input call and compares 
the character returned from BDOS with the ESC character. 
If it is not the ESC character, the RSX returns the character 
to the calling program. If it is an ESC, the RSX does a con- 
sole input call using BDOS function 6 (Direct Console I/O) 
with register E set to OFDh. This suspends the calling pro- 
cess until a character is typed. Therefore, when you press the 
ESC key while the program is running, the program is sus- 
pended until you press another key. 

You could attach this RSX to any other program where 
you need the ability to temporarily pause the program but it 
is not available. You could also modify this RSX to redefine 
any set of keys on the keyboard. RSXs can become much 
more complex, including routines that monitor a modem 
port and notify you when someone is trying to access your 


by Garry M. Silvey 


Garry Silvey, Digital Research, P.O. Box 579, 160 Central 
Avenue, Pacific Grove, CA 93950. 


CP/M Plus is a registered trademark of Digital Research, Inc. 
LINK and RMAC are trademarks of Digital Research, Inc. 
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Resident System Extensions 
RSX Under CP/M Plus 


computer and complete disk or character I/O drivers. 


RSX Memory Organization 

RSXs are loaded when a program containing an RSX is load- 
ed. When the loader detects that the file being loaded con- 
tains an RSX, it strips the RSX from the program code, relo- 
cates the RSX just below BDOS (or a previously loaded 
RSX), modifies the jump instruction at location 0005h to 
point to the beginning of the RSX, and loads the program 
code beginning at location 0100h in memory. The loader also 
sets the uninitialized fields in the RSX Prefix. 

The figure (page 37) illustrates how memory is configured 
before and after an RSX has been loaded. Note that the size 
of the transient program area will shrink as each new RSX is 
loaded. 

If more than one RSX exists in memory, the jump instruc- 
tion at location 0005h points to the first RSX. The Next field 
of that RSX points to the next RSX, and so on until the chain 
of RSXs reaches BDOS. 


Format of an RSX 

The first 27 bytes of an RSX contain a data structure called 
the RSX Prefix that is used by both the RSX and the loader. 
In the RSX Prefix is a flag that indicates whether the RSX 
should be loaded in nonbanked systems only and whether or 
not the RSX should be removed during a warm boot. If the 
RSX is not removed at warm boot, it will be active until the 
system is cold-booted; all programs that are executed after 
the RSX has been loaded will have their BDOS calls inter- 
cepted by the RSX. 

An example of an RSX that loads only in nonbanked sys- 
tems is the DIRLBL.RSX file that is included with CP/M 
Plus. This RSX, attached to SET.COM, modifies the way the 
directory label is updated in nonbanked systems. If SET is 
run on a banked system, the RSX is not loaded. The table 
(page 37) contains a listing of all of the fields contained in 
the RSX Prefix. Listing One (page 40) shows how an RSX 
Prefix would be set up in assembly language. 

The fields that the programmer must initialize are the 
Start, Remove, Nonbanked, and Name fields, as well as part 
of the Next field. The loader will fill in the other fields when 
it loads the RSX into memory. 

The first byte of the Next field should be initialized to 
Oc3h, the hexadecimal code for the jump instruction. The 
Start field should be initialized with a jump instruction to 
the beginning of the RSX code. This is where a function 
number is tested to see if the RSX should intercept it. 

The Remove flag should be set to Offh if the RSX is to be 
removed from memory by the next call to BDOS function 59, 
Load Overlay. If this flag is set to zero, the RSX will remain 
in memory and be functional until the system is cold-booted. 
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Note that the CCP always calls the Load Overlay function 
during a warm boot. 

The Nonbanked flag is set to Offh to tell the loader to load 
the RSX in nonbanked systems only. If the flag is set to zero, 
the RSX is loaded in both banked and nonbanked systems. 
The Name field should be initialized to the name of the RSX; 
the name must be 8 bytes long, so pad it with blanks if 
necessary. 


Function of an RSX 

Once a program that contains an RSX has been loaded, the 
RSX intercepts all BDOS calls (Call 0005h) before they 
reach BDOS. The RSX then determines if the function num- 
ber being passed to BDOS matches a function number that it 
should extend, modify, or create. If the function is not rele- 
vant to the RSX, the call is passed up the RSX chain by 
jumping to the Next field of the RSX Prefix. 

If the RSX needs to make a BDOS call, it must call the 
address stored in the Next field instead of the address at 
location 0005h. By using the address in the Next field, the 
call starts with the next RSX or BDOS. If the RSX makes a 
BDOS call using location 0005h, the call will eventually 
reach the same RSX, which could result in an infinite loop! 

The actions that an RSX can take are many. The RSX may 
simply modify the parameters passed to it, then let the call 
continue on to BDOS; in this case, the last instruction of the 
RSX would be a JMP NEXT. The RSX may catch the call, 
perform a number of BDOS calls using the instruction CALL 
NEXT, and then either return to the transient program by 
using a RET instruction or pass the original call on to BDOS 
by using a JMP NEXT instruction. The RSX may also catch a 
BDOS call, perform the BDOS action (i.e., direct I/O port 
accessing) without ever using BDOS, and then return to the 
calling program. 

The RSX should set up a local stack that is large enough 
for its own needs. If it does set up its own stack, it must 
restore the stack pointer to the entry stack before exiting. 


RSX Example 
The RSX example included with this article will kill two 
birds with one stone. It makes a good example for how to use 
RSX, and it “patches” an incompatibility between CP/M 2.2 
and CP/M Plus. 

In CP/M 2.2 the filename specified in the FCB given for 
BDOS function 15, Open File, can contain question marks; 
the BDOS will open the first file whose name matches the 
ambiguous filename. If the same program is run under CP/ 
M Plus, the BDOS error “‘? in filename” occurs and an error 
is returned. If a program you have developed under 2.2 calls 
the Open File function with question marks in the FCB, you 
simple attach the following RSX to it, and it will run under 
CP/M Plus as expected. 

The sample RSX modifies the BDOS Open File function 
with the following routine (see Listing Two, page 40). When 
BDOS is called with the function number equal to 15, the 
RSX intercepts the call and checks the FCB for question 
marks. If no question marks appear in the FCB, the RSX 
passes the call on to BDOS for normal processing. If there are 
question marks in the FCB, the RSX uses the ambiguous 
filename in the FCB in a call to BDOS function 17, Search 
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eee Number: 


Next: 


Previous: 


Nonbanked*: 
Name*: 


Loader: 


Reserved: 


system. 


Contains a jump instruction to the. 


beginning of the RSX code. 


Contains a jump instruction to the next 


RSX in the RSX chain or to BDOS. 


Contains the address of the previous 
(newer) RSX or location 5 if this is the - 


first RSX. 


This flag tells the loader whether or not 
the RSX should be removed during the — 
next call to the loader via BDOS function 
59, Load Overlay. (This functionis  __ 


always « called during warm boot.) 


loaded in nonbanked systems only. 


Tells the loader if the RSX should be 


1 ‘Holds the seria number ‘of the opera oe . | 


Contains an 8-character name for the _ 


RSX. 


This flag is set if the RSX is the last one in 


the RSX chain. If the flag is set, it 


indicates that the RSX is ey the 


loader. 


This field is reserved for use b y BDOS. 


*The programmer must neice this field. — 


Table | 
RSX Prefix Fields _ 


Memory Organization 


BIOS — ; 


- -BDOS | 


> an Ge ae OD Om oS OS OS oD oD oD ow oe anne 


ee 


Transient Program 


i " Page Zero. 


Memory Organization with No RSX i in Memory 





: a BIOS = 


i 
BDO0S_ 3 
LOADER - - 


ee 


ee 


1 
Tronsient Program : 
2 ee oe oe ee oe oe oe ee ee eeeeeawunen! 

_ Page Zero §ccee- 


Senn es = & 2 om Gb as asaceneannoeaanaad 


Memory Organization with an RSX Loaded 


2a oe on om on op os on oe on 8 


= oe op ap op op oe ol 


BDOS 


BDOS 


Jump 
Vector 


Jump — 
| Vector 
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First. If the search returns an error, the RSX returns a “file 
not found” error to the program. If the search is successful, 
the RSX takes the filename found and places it into the user’s 
FCB. It then jumps to BDOS with register C set to the Open 
File function. BDOS then opens the file as expected and re- 
turns to the program. 

Also included with this article is a short program that tests 
the functionality of the RSX example (Listing Three, page 
43). It prompts the user for a filename, uses BDOS function 
152, Parse Filename, to set up an FCB, then calls BDOS 
function 15, Open File. If the RSX has been attached, and 
the user gives an ambiguous filename when prompted, the 
first file whose name matches the filename is opened as it 
would under CP/M 2.2. If the RSX has not been attached, an 
error is returned. 


To use the RSX in Listing Two, first type it in using your 
editor, then perform the following steps: 


(1) Use RMAC to assemble the file. 

(2) Use LINK to link the file. Use the OP option so LINK 
will produce a Page Relocatable (.PRL) file. 

(3) RENAME the file created by LINK so that it will have 
a filetype of .RSX. 

(4) Use the test program supplied, or a program that you 
know uses FCBs with question marks, and attach the RSX 
file to it using GENCOM. BB 


(Listings begin on page 40) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 


_ : Example 
13A>RMAC OPENRSX 
CP/M RMAC ASSEM 1.1 
00C7 | 
001H USE FACTOR 
END OF ASSEMBLY 
13A>LINK OPENRSX [OP] 
LINK 1.31 
TRUE FFFF - FALSE 0000 PRINTS 0009 OPENFI OOOF 
SEARCH 0011 - SCB 0031 CALLRS 003C DEBUG FFFF 
NEXT 0109 PREV 010C REMOVE 010E NONBNK  010F 
RSXNAM 0110 _ START 011B CAUGHT 0132 LOOP 0141 
DOIT 0155 - FOUND 0170 LDIR 0189 SCBPB 019A 
OFFSET 019A ~ OPERAT 019B VALUE 019C USERST 019E 
RSXSTA  O1AA QMESS O1AA 
ABSOLUTE 0000 
CODE SIZE 00C7 (0100-01C6) 
DATA SIZE ~ 0000 
COMMON SIZE - 6000 
USE FACTOR 04 


13A>REN OPENRSX.RSX =OPENRSX.PRL 

13A>MAC OPEN _ 
(CP/MMACRO ASSEM2.0 

0233 _ 

001H USE FACTOR 

END OF ASSEMBLY 


13A>HEXCOM OPEN 
HEXCOM VERS: 3.00 


FIRST ADDRESS 0100 
LAST ADDRESS 0232 
BYTES READ 0101 


RECORDS WRITTEN 03 
13A>GENCOM OPEN OPENRSX 
GENCOM completed. 


13A> 
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The RSX assembly language file (Listing 
One) is called OPENRSX.ASM, and the test 
program (Listing Three) is called OPEN.ASM. 
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TR, _.. 


eee 


In October 1983 The National Software Show became the headline event of the microsoftware 
industry: the first international microsoftware-specific tradeshow for ISOs, OEMs, Systems 
Houses, and Volume Buyers for large corporations. 

Once again, the second annual National Software Show gives attendees all the latest-breaking 
information about microsoftware, before your customers ask for it. 


THE UNIX MOVEMENT DEALER FOCUS | 


The UNIX System is moving the A comprehensive conference schedule | 
industry out of its infancy and into targets ISOs. Know the answers [> 
adulthood. How does UNIX affect the aeeeee a a before they affect your bottom 
atem reseller, corporate user, or 7 hee lag ef line. Included in an Exhibits- a 
Systems House/OEM? What’s PS Paes 2 nv oe Only admission: three keynote 
going on with UNIX? Where is panels, and daily press 
sta the best place to find the conference schedule where vs 
answers? ... At The National industry leaders will 
software Show. announce and demonstrate 
si ! RIGHT TIMING new products. Keynote topics 
ee bye gated tS te eat ee ieee are: ‘Multi-User System 
onesie Smart ISOs are kicking-off ieee se haee 2 ers pete he a Update,’ ‘The UNIX System 


their buying season this a ee a ha Marketplace,’ and ‘The 
September at The National me Micro to Mainframe Link.’ 


ir Software Show. Preview and 5 ae 
order new programs before DON’T FALL BEHIND 


“ the year-end rush. Open your most important selling season by 


attending The National Software Show. Learn} 
ALL UNDER ONE ROOF 


the inside information on microsoftware, 
Virtually every major microsoftware producer before everyone else does. Register now! 
in over 700 exhibit spaces will share their 


3-Day Exhibits/Full Conference - $125 
expertise and demonstrate their top 3-Day Exhibits and One Day Conference - $65 
products. All on one level. All easy to find. 


3-Day Exhibits Only - $25 
CALL TODAY 
ae | Sales representatives are on hand at 800-732-2300 (outside CA) or 415-924-1194 ( inside ae 


CA) to answer any questions and rush you a NSS PreShow Information Guide, listing con- 
ferences and speakers in detail. We accept American Express. 
















September 5-7, 19 sues 
Anaheim Convention Center. Anaheim, California _ 


| Produced f Raging Bear Productions, Inc. 21 Tamal Vista, eee Lane Madera, CAe (415) 924- 1194 or eee) 732- 2300 
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RSX Under CP/M (Text begins on page 36) 


Listing One 


RSX Prefix Assembly Language Example 


serial: db 0,0,0,0,0,90 
start: jmp RSXstart 
Next: | jmp $-S$ 
prev: dw Q 
remove: db Gffh 
nonbank: db Q 
name: db "RSX NAME! 
Loader: db Q 
db 0,0 

RSXstarts 

Listing Two 


™e sme 0 me Te Me BMS MO Me We WS Ws ™=e Se @e Be We 


The loader will put the 
serial number here. 

Jump to start of the 
RSX code. 

jmp instruction 

Address of the next 
module, this is 
filled in by the 
loader. 

The. loader will put the 
address of the 
previous module here 

Remove flag 

Nonbank flag 

Name of the RSX 

Loader flag 

Reserved for system use 


Actual RSX code starts here 


End Listing One 


Open File RSx 


Marks in 1t. 
to BDOS. If there are ?'s, 


search is not successful, 
the calling program. 


me ™[e me SO me me ™=e “=e =e Te 


open file call. 


=e 


TRUE equ OffffCh 
FALSE equ NOT TRUE 
PRINTSTR equ 99 
OPENFILE equ 15 
SEARCHF equ L/ 
SCB equ 49 
CALLRSX equ 68 
DEBUG ~~ equ TRUE 

40 


register pair DE to call the BDOS search first function. 
it will return the appropriate error to 


If the search. was successfull, 
found is transfered from the DMA buffer to the FCB address that was 
Originally passed in register DE. 


This program is assembled using RMAC and LINK to create an RSX to 
catch BDOS open file calls which specify an FCB that has question 


If there are no ?'s in the FCB, 
this RSX wiil use the FCB pointed to by 


the call is passed on 


If the 


the filename 


The RSX will then execute a normal 


Print Stritig 

Open File 

search for First 

Get/Set System Control Block 
Call RSX 


=e ™e %e Be we 


; will display more messages 
; while debuging 
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o eee r U 


NEXT 
PREV 
REMOVE 


NONBNK 
RSXNAME 


2 Start 
START: 


- If DEBUG is true, 
Cake Roan 


of the RSX Prefix 
db G9,0,0,08,0,@ 
jmp START 

jmp S-$ 

dw Q 

db ®ffh 

db 4) 

db "OPEN . 
db 0,0,20 

of RSX code 

mov a,c 

cpi OPENFILE 
Jz CAUGHT 


—e we PO 


e 
l 
e 
‘ 


° 
c 


Serial number 

start of this. -RSX 

jmp instruction 

address of previous module 
remove on warm boot 

load for banked and non-banked 
name of RSX 

used by BDOS 


check BDOS function number 
is 1. an opem tite call? 
if so, .process.i¢ 


then check the function number for the BDOS function 
If the function number matches, return to the calling program 


; with register A set to 8 to tell the program that the RSX has been loaded. 


=e ese Se Be 


™e-™e Te Be 


is rt a-call-@o this RSX: 
nope, pass to next RSX or BDOS 
Is 1t..the. test program: calling 2? 


register DE equal @ffffh ? 

nope, pass call on to next module 
otherwise zero A 

return to calling program 


jump to next module if not open call 


get current stack pointer 
and save it 

use local stack 

Save users registers 


max # of characters ina filename 
point to filename in FCB 


1S 20 ce? 

found a ?, so execute rest of RSX 
try next character 

decrement counter 


there are no ?'s in the filename 


the next RSX) for normal execution. 


a 


e 
a 


e 
a 


restore the users registers 


restore users stack 
pass to next RSX or BDOS 


executed, then the FCB is 


; updated with the filename that was found, and then a Open 


if DEBUG 
cpi CALLRSX 
JIEZ NEXT 
mov a,d 
cpi G@ffh 
jnz NEXT 
cmp 5 
jnz NEXT 
xra a 
ret 
else 
jmp NEXT 
endif 
CAUGHT: lxi h,@ 
dad sp 
shld USERSTACK 
L¥i sp,RSXSTACK 
push b 
push qd 
: check filename for ?'S 
mvi 57,221 
inx d 
LOOP: ldax qd 
Cor ee 
Jz DOIT 
inx d 
dcr b 
Inz LOOP 
. If the program has reached here, 
‘ so pass the call on to BDOS (or 
pop d 
pop b 
lhid USERSTACK 
sphl 
jmp NEXT 
DOLT < > Here a Search First function 1s 
> File command is sent to BDOS. 
if DEBUG 


; Tell the user we found a 


1xi d,QMESS 
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If the search. first call 
returns an error, the RSX returns the appropriate error. 


(Continued on next page) 
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RSX Under CP / M (Listing Continued, text begins on page 36) 


Listing Two 
mvi c,PRINTSTR 
call NEXT 
endif 
pop d ; get the FCB address 
push d ; Save it again 
mvi c,SEARCHF ; prepare for a Search First call 
call NEXT ; {call BDOS) 
cpi Offh ; wok: round. 2 
jnz FOUND ; continue processing 


; An error occured during the Search PITst call..“in this 

; case, we do not want to pass the original call onto BDOS since 
there are still question marks in the FCB. Instead, return to 

the calling program with errors in a,hl as set by BDOS. 


e 
a 


e 
a 


pop d ; restore users registers 
pop b 

lhid USERSTACK 

sphl ; restore users stack 

ret ; return to users program 


FOUND: ; The Search First was successfull, so update the users FCB 
with the FCB of the file that was found, and jump to BDOS's 
; Open File function. 


; First multiply directory code by 32 to get offset to the 
FCB of the file that was found. 


ada aor... adda 

SG a. 2. ees a 

add a 

push a ; Save offset 


The value of the current DMA address must be determined so 

; the RSX can retrieve the FCB of the file that was just found. 
; The calling program may have modified the current DMA address, 
+ So the DMA address will have to be extracted from the SCB. 


mvi oe, SCB ; get/set -SCB -Eunction 
ix d,SCBPB ; SCB pb address 
Cad NEXT ;: call BDOS 
; Register pair HL now contain the DMA address 
pop a ; restore the offset to the FCB 
mov C,a 
mvi b,@ ; put offset into bec 
dad b ; hl now points to the FCB of the file 
; that was just found 
inx h ; point hl to start of file name 
pop d ; get. d (which points to the users FCB) 
push d ; Save d again 
inx d ; point to file name 
Now the calling program's FCB must be updated with the FCB of 
the filename that was just found. ‘he filename field of the 


FCB is the only part that needs to be updated. 


=e ®e Be Be 


+ If you have a Z8% CPU, use the following code. 


lxi 51k 

: dw SbGedh ; Z288 ldir instruction 
+ If you have a 8888 CPU, use the following code. 
mvi he de 

LDIR: mov a,M ) tases 
stax d i Phe 
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dcr b 
jnz LDIR 


; The calling program's FCB now has a full filename in it, so 
now the RSX can setup an Open File call. 


e 
a 


pop d 
pop b ; Restore users registers. Register 
; C will be restored with the 
; Original Open File function 
; number in it. 
lhlid USERSTACK 
sphl ; restore users stack 
jmp NEXT ; BDOS will now open the file normally 


SCBPB: ; SCB parameter block: Set up to Get the DMA address stored 
> in the ‘SCB at -offset @3ch. 


a 


OFFSET: db 83ch > offset in SCB to DMA address 
OPERATION: db Q ; get operation 
VALUE: dw g 
USERSTACK: dw Qg ; storage for users stack 
ds 1Q : Space for “stack 
RSXSTACK: 
; If debug is true, include the following message. 
if DEBUG 
QMESS db '? in FCB, caught by RSX...',9dh,@ah,'$" 
endif 
(End Listing Two) 
Listing Three 


Open File RSX Test Program 


Sample program to test the RSX in listing #2. The program asks 
for a filename and builds and FCB for the file using the BDOS 
Parse Filename function. It then tries to open the file. 


If the filename has any question marks in it, BDOS would normally 
terminate the program and display an error message. After the RSX 
is installed, the file is opened as under CP/M 2.2 and no error is 


returned. 


me %e Se ™0e ™e Be MO VE Be We 


» miscellaneous equates 


TRUE equ G£ff££h 
FALSE equ not TRUE 
BDOS equ 5 ; BDOS jump address 
CR equ 13 ; carriage return 

, LF equ 1 : line feed 
PRINTSTR equ 09 ; Print String 
RBUFF equ 19 > Read Console Buffer 
OPENFILE equ LS ; Open File 
SEARCHF equ 17 - Search for First 
SCB equ 49 ; Get/Set SCB 
CALLRSX equ 60 . Cabs Ros 


(Continued on next page) 
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RSX Under CP / Ni (Listing continued, text begins on page 36) 


Listing Three 
PARSE equ L52 ; Parse Filename 
DEBUG equ TRUE 
org G108h 
START: ; print signon message 
IE d,SIGNON 
mvi c,PRINTSTR 
call BDOS 
if DEBUG 
; See if the RSX has been attached... 
mvi c,CALLRSX 


; Normally, register pair DE would point to a RSX parameter 

; block, but since the RSX will not use any parameters, load 

; DE with a value of @ffffh to differentiate this RSX call from 
; other RSX calls that could be used by other programs. 


Lk G Oretth 
call BDOS 
cpi QB ; is there a RSX attached ??? 
ae PRSXM ; yes, tell user 
mv i c,PRINTSTR 
Lx d,NO ; tell the user there is no RSX 
Cas: BDOS 
; Print RSX message 
PRSXM mvi oc, PRINTSTR 
£4 d,RSXM 
Cald BDOS 
endif 
; Prompt user for filename 
mvi c,PRINTSTR 
1xi d,PROMPT 
call BDOS 
; Get the filename from the user 
lxi d, INBUFF 
mvi c,RBUFF 
Cai. BDOS 
; Move the cursor to the next line 
1xi d,RETURN 
mvi c,PRINTSTR 
call BDOS 
; Set up the Parse Filename Control Block and parse the filename 
Li d,PFCB : 
mv i c,PARSE ; BDOS parse file name function 
call BDOS 
; The parsed filename is now in the FCB, so now open it 
Tei O50 
mv i c,OPENFILE ; BDOS open file function 
call BDOS 
cpi Offh ; error returned ? 
jnz FOUND ; if not exit program 
44 
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; Print an error message if the file was not found 


ixXi d,ERRMESS ; print error message 
mvi C,PRINTSTR ; “BDOS) print string function 
call BDOS 
EXPT: s Return “Control: back. to ‘the, CCP 
mvi c,@ > BDOS warm boot function 
jmp BDOS 
FOUND: ; Tell the user what the name of the file that was found is 
1xi d,ENDMESS 
mvi c,PRINTSTR 
call BDOS ; print ending message 
1xi a, FCB+12 ; point de to end of filename 
mvi a, 'S* 
stax d s puta $ there 
1lxi d,FCB+1 ; point d to first character of name 
mvi c,PRINTSTR 
call BDOS ; print the filename 
Ls d,RETURN og arep te> next. Line 
mv i c,PRINTSTR 
ead BDOS 
jmp EXIT Po Feturn to;.ecp 
PFCB: > Parse Filename Control Block 
dw INBUFF+2 ; address of input string 
dw FCB ; address of target FCB 
INBUFF: ; Console input buffer 
db 14,0 ; number of characters to read 
ds 14 ; “input buffer space 
FCB: ds 36 iF Ce LOCaLLON 
; Terminal messages 
ERRMESS:db ‘file: not found4,cr,1lé;'5" 
SIGNON: db ‘open tide BSX: test -progratves’ , Orel ft i237 
ENDMESS:db "name. o£ file found ':.$” 
RETURN: db CEG Eye 
RSXM: db "RSX has been installed. *yer;,1f£, "Ss 
PROMPT: db "enter file name : $' 
NO: db ho sS 
end 


End Listings 


THE 
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p—-A Small C Preprocessor 


Last month Dr. Schreiner provided us 
with cc, a driver for a Small C pro- 
gramming system. This month he pre- 
sents p, the preprocessor for Small C 
referred to in the previous article. p 
provides yet another tool for greater 
convenience and power in the Small C 
environment. Also included this 
month is code for adding random or- 
der release of memory to the routine 
library. While not included with cc 
last month, it is applicable in that con- 
text as well.—Ed. 


im Hendrix’s Small C compiler 

(DDJ, December 1982) sup- 

ports some of the preprocessor 
commands that are usually available in 
C systems: a symbolic name can be de- 
fined for an arbitrary text, which will 
then be inserted whenever the name 
appears in the source program. This 
facility is most frequently used to give 
meaningful names to various impor- 
tant constants in a program, but it can 
also be used to give C programs the 
appearance (almost) of Pascal pro- 
grams, to substitute one function name 
for another, and so on. Hendrix’s com- 
piler also supports one level of file in- 
clusion, although with a somewhat 
nonstandard syntax, and it supports 
conditional compilation based on 
whether or not certain symbolic names 
have been defined. 

Such a preprocessor is an important 
tool in its own right. It can be com- 
bined with other language processors 
and assemblers as well. It also becomes 


by Axel T. Schreiner 
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considerably more flexible if text sub- 
stitution can be parameterized (i.e., if 
macro calls can have arguments and if 
file inclusion is performed to arbitrary 
depth). If the preprocessor eliminates 
C-style comments and translates C- 
style constants to decimal notation, it 
simplifies the compiler’s job signifi- 
cantly and at the same time obtains a 
uniform approach to constant nota- 
tion, commenting conventions, and file 
inclusion. 

p, the program described in this arti- 
cle (and presented in the Listing One 
on page 52), is such an independent 
preprocessor. It is written in Small C 
and supports all the features of the reg- 
ular C preprocessor described by Ker- 
nighan and Ritchie (The C Program- 
ming Language, Prentice Hall, 1978) 
with the exception of an if preproces- 
sor statement with a constant expres- 
sion argument. 


Features 

p is based on a runtime support that 
passes arguments to the main pro- 
gram; it expects to be called as follows: 


p (option) . . . (inputfile (outputfile)) 


If no files are explicitly specified, p 
will read from “standard input” and 
write to “standard output” (the run- 
time support presumably makes those 
connections as well). If the runtime 
support would normally connect to the 
terminal, it is quite simple to test cer- 
tain features through input from the 
terminal or to see the results of a pre- 
processor run directly at the terminal. 

You may specify options in any or- 
der. They are generally cumulative. 
The following options are available: 


-d name 

(value) Define a symbolic name 

-e Suppress position stamps 

-i drive Search for file inclusion 

-u name Undefine a symbolic 
name 


-v Verbose — for debugging 


You may redefine symbolic names 
when p is called. This is quite conve- 
nient for maintaining various versions 
of a program. p predefines the name 
cpm. You can undo this (in particular) 
using the option to undefine a name. 
To permit a compiler to emit error 
messages referencing the original 
source files, p will create a position 
stamp (i.e., a line starting in “#” and 
containing a decimal line number and, 
if known, a filename whenever this is 
necessary for correct sequencing of 
output lines. Hendrix’s Small C com- 
piler cannot handle these position 
stamps; therefore, they can be sup- 
pressed. 

CP/M identifies files by name and 
disk drive. p therefore will search in- 
clude files on various disks: first on the 
disk of the input file (which may be the 
currently selected disk) and last on the 
currently selected disk. In between, p 
may search other disk drives optional- 
ly, if appropriate options have been 
specified. The search proceeds from 
right to left over the -i options. 

The options are clearly patterned af- 
ter the Unix* system. The main pro- 
gram expects to receive pointers to the 
various options as a vector “argv.” The 
number of such options, including 
(theoretically) the program name as 
first option, is also passed as an integer 
“argo.” p is tolerant enough to accept 
the parameter of an option (such as an 
include drive) as part of the option or 
aS a separate, immediately following 
option. Options, however, must pre- 
cede the filenames. 

Once started, p will read the input 
file and write the output file. C-style 
comments (i.e., arbitrary texts en- 
closed in /* and */ sequences) are re- 
placed by single blanks. Next prepro- 
cessor command lines are processed. 
Then in regular text lines macro calls 
(i.e., appearances of defined names 
possibly followed by a list of argu- 
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ments in parentheses) are replaced. 
The replacement text is surrounded by 
blanks and is reprocessed for further 
macro calls. Recursion may happen, 
but reprocessing is aborted after a few 
attempts with an appropriate message. 

Input lines, as well as output lines, 
may be arbitrarily long. You may con- 
tinue input lines over several source 
lines by placing a backslash right be- 
fore the end of the source line to be 
continued. C is free format, but pre- 
processing is line oriented; continua- 
tion should be necessary (and come in 
handy) only for preprocessor com- 
mand lines, macro calls, and very long 
strings. Macro calls and strings must 
be fully contained within one (possibly 
continued ) input line. 

A macro call is not recognized with- 
in a comment, a preprocessor com- 
mand line, a string, or a character con- 
stant. The replacement text is 
surrounded by blanks. You cannot use 
two adjacent macro calls to create an- 
other macro call from their replace- 
ment text. 

If you define a macro with parame- 
ters, the macro call consists of the 
macro name and a list of arguments, 
separated by commas and enclosed by 
parentheses. While in the definition 
the left parenthesis must immediately 
follow the macro name, it need not in 
the call. The call, however, must be 
completely contained on one input line 
to avoid rather sticky questions should 
macro be redefined inside its call, etc. 


define 
define 


name replacement-text 
name(name,. ..) replacement- 
text 

undef name 
ifdef name 
ifndef name 


else 


endif 


include “filename” 
include (filename) 
line linenumber filename 

define is used to define a symbolic 
name for an arbitrary replacement 
text. You may parameterize the re- 


placement text. The parameter names 
are local to each definition, and unfor- 
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tunately no test exists to determine 
whether two parameter names within 
one definition are one and the same. 
Names follow C conventions; i.e., they 
must start in a letter or underscore, 
can contain letters, digits, or under- 
scores, and can be arbitrarily long. 

Redefinition is possible but provides 
a message, undef can be used to re- 
move a definition, and there is no com- 
plaint if the relevant name was never 
defined. 

ifdef is fulfilled if the specified name 
is currently defined; ifndef is fulfilled 
if it is not. In either case, subsequent 
input lines (including preprocessor 
commands) are processed or skipped 
depending on the condition. else re- 
verses the current value of the condi- 
tion, and endif terminates the con- 
struct. You may nest these constructs 
to any depth. e/se should only be used 
Once per construct, but this is not 
checked. Each else reverses the current 
state of things. 

include causes file inclusion. The file- 
name should follow CP/M conventions. 
If it does not contain an explicit disk 
drive specification, the file is searched 
on the list of drives beginning with the 
input file drive and ending with the 
currently selected drive. If the filen- 
ame is enclosed in angle brackets rath- 
er than double quotes, the first drive on 
the list is skipped. (Normally, brackets 
are used to designate public include 
files, presumably residing on the cur- 
rently selected disk and not on the disk 
of the input file. ) 

A macro argument is an arbitrary 
text and may even contain a comma 
within balanced parentheses, a string, 
or a character constant. The text is 
substituted wherever the correspond- 
ing parameter appears in the macro 
definition, even within a string. No 
blanks are forced around the argument 
text. There must be exactly as many 
arguments as there are defined 
parameters. 

p removes leading white space from 
the output lines and converts constants 
to decimal notation. These “‘features”’ 
can be removed easily. They do impair 
the general applicability of the pro- 
gram, but they overcome certain prob- 
lems in Hendrix’s compiler while sig- 
nificantly shortening the output file. 

The following constant notations are 
accepted and are converted to (signed) 


decimal representation: 


digits decimal constant 

0 digits octal constant(digits 
OA) 

Ox digits | hexadecimal constant 
OX digits (digitsO..9,a..f, 
A’; F) | 

bg character constant 


Clearly, no blank may separate the 
base prefix from the actual constant. 
Character constants may be escaped; 
escape sequences consist of a backslash 
character followed by other charac- 
ters. The following escapes are 
recognized: 


backspace 

form feed 

newline (line feed ) 

return 

tab 

single quote 

double quote 

backslash itself 

octal, up to three digits 0..7 


om oe mao 


a. 


Character constants are converted 
to decimal notation. This is reasonable 
for C programs, but it might cause 
problems elsewhere. 

Preprocessor command lines begin 
with a “#” symbol. White space may 
follow, and then a keyword must be 
distinguishable. Depending on the 
keyword, there may be parameters; the 
rest of the command line can be quite 
arbitrary. The following commands 
are supported: | 

You may nest include to any depth, 
assuming the runtime support for this 
program is reasonable. Once the end of 
an included file is reached, processing 
continues after the include command 
causing the file inclusion. If a file can- 
not be opened or found, a message is 
printed, but processing continues. 

The /ine command is intended for 
program generators. For purposes of 
diagnostics and position stamps in the 
output file, p will accept a line number 
and optionally a filename from the /ine 
command. 

Other lines starting in “#” are pro- 
cessed as if they were text. p will thus 
pass through such things as “‘asm”’ and 
“endasm,”’ provided these lines are not 
modified by macro expansions. Posi- 
tion stamps from a previous run of p 
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would also be passed through again. 


Implementation 

The task of preprocessing can be nicely 
structured into four problems, each 
solved essentially by a single C 
function: 


take care of start options, initialize 
while (there is another line) 


if (after removing comments, there 
is something && 


after observing commands, there 
is something) 


preprocess the text line 


main() takes care of start options 
and initialization. getline() collects a 
nonblank line and takes care of line 
continuation. comment() eliminates 
comments, which may extend over sev- 
eral lines, and removes leading white 
space. command() knows whether you 
are currently skipping in observance of 
some if construct; if you are, com- 
mand() pretends that a command was 
actually found so that the input line is 
not processed further. If there is a pre- 
processor command, command() will 
recognize and execute it. If the current 
line is regular text, process() takes care 
of macro expansion and output. 

getline() simply collects input char- 
acters into a buffer until a newline 
character or end of file is found. If 
there is a backslash followed by a new- 
line, both characters are ignored (but 
source lines are counted). If there is 
end of file following a backslash, get- 
line() complains. At end of file, get- 
line() attempts to pop the stack of open 
input files. getline() returns once it en- 
counters a nonblank input line or if the 
end of the initial input file is reached. 
Non-ASCII characters are not accept- 
ed as input to simplify subsequent 
processing. 

For input and output two buffers 
must be maintained and should be able 
to grow more or less without limit. The 
rebuff() routine, which is called with a 
full buffer, handles this. It will relocate 
the buffer and copy the information 
over. Clearly, no other pointers into 
the buffer should exist at that point. 

The comment() algorithm is quite 
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simple: it copies everything until /* 
then quits copying (and reporting that 
there is text material) until */ is found. 
Matters are complicated slightly by 
strings, (invalid) character constants, 
and backslashes. The problem is han- 
dled with the state variable ‘““cmode,”’ 
which maintains the current context 
— comment, string, character con- 
stant — across calls. comment() will 
suppress blank lines, as well as initial 
white space. 

command() deals with preprocessor 
commands in all those line buffers that 
comment() did not prevent from being 
passed on. Calls to the symbol table 
management routines handle com- 
mand processing. if constructs are im- 
plemented through two variables: if- 
level, which counts the current nesting 
depth of these constructs, and skip. 
skip is usually and initially zero, indi- 
cating that text should be processed. If 
text should be ignored (due to some if 
or else), skip is set to the value of if- 
level at which skipping should termi- 
nate. If you are skipping and reach e/se 
or endif at the proper level, you are 
done; skip reverts to zero. 

There really should be only one e/se 
per if, Enforcing this would require a 
stack to indicate at each “‘iflevel” if we 
have already seen e/se or not. I felt that 
this was not really necessary — conse- 
quently (as in Hendrix’s compiler), 
multiple e/se are allowed. 

line and include require a certain 
amount of data processing. The syntax 
must be verified, and the relevant in- 
formation must be stacked. There are 
stacks of open file pointers, filenames, 
and last line numbers. All the stacks 
are handled by push routines, which 
return the address of a new element 
linked before the stack. The result of 
push, therefore, must always be as- 
signed back to the stack top pointer, 
which is passed as an argument. A 
common pop() routine handles remov- 
al of unwanted elements. A string 
stack is also used to hold the include 
prefixes passed as options. 

process() does the actual work if a 
line is ever passed on to it. The line 
buffer is scanned and copied to the 
oline buffer. The outmacro(), outnum- 
ber(), outdelim(), and out() routines 
are called to manage processing of a 
macro call, a numerical constant, a 
string or character constant, and a 


simple character, respectively. As long 
as a macro was actually expanded in a 
pass over line, the two buffers are in- 
terchanged and processing is repeated 
until either no more expansion is per- 
formed or a count runs out (to prevent 
infinite recursion). output() takes care 
of emitting position stamps and the 
processed text. 

Finding names in the symbol table 
and undefining them is quite simple: 
the symbol table is a one-way linked 
list of entries, each containing a point- 
er to the string defining the symbol and 
the symbol name itself. If the symbol is 
a parameterized macro, the name is 
followed by a left parenthesis and a 
(binary) parameter count. find() must 
take care to match the names correct- 
ly. If a symbol definition is parameter- 
ized, the value contains (binary) pa- 
rameter numbers in place of the 
original parameter names. Each pa- 
rameter number takes just one byte. 
and is flagged in the high bit since all 
other text is ASCII. 

The symbol table can employ a 
hashing mechanism. If the symbolic 
name HASH is undefined, the symbol 
table consists of a single linear list. If 
the name is defined, it must be as a 
power of 2, designating how many such 
linear lists should be kept. In this case 
each name is first converted to a num- 
ber indicating which of the lists should 
be used. This simple mechanism and a 
rather naive hash function in find() cut 
preprocessing time by about 20 
percent. 

define() does a significant amount 
of text processing to prepare a param- 
eterized macro definition. marknm() 
separates the macro header from the 
macro value within the line buffer. is- 
macro() and isname() make sure that 
the macro header uses only appropri- 
ate symbols and the proper arrange- 
ments of commas and parentheses. is- 
macro() prepares yet another string 
stack of parameter names. define() 
then removes leading and trailing 
white space from the value and re- 
places parameter names by flagged 
numbers. Finally you must guard 
against redefinitions and store the re- 
sult. A redefinition is flagged only if it 
is truly different — therefore, header 
files usually can be read several times 
without complaint. 

outmacro() also does a large amount 
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Don’t call her cheap. Call her beautiful. 


The Bonnie Blue’ 


Word Processing System for the IBM Personal Computer 





It's obvious what makes her so cheap, but what makes 
Bonnie Blue so beautiful? Bonnie Blue is a new and easy-to-use 
word processing program for the IBM Personal Computer. 


The Full System. The Bonnie Blue System includes in one 
program a full screen Editor, a Printing module and a useful 
Toolbox. It includes the features you’ve come to expect, and 
more: 


complete cursor control: by character, word, line; page up and 
down instantly; go to top, bottom of document: auto scroll 
towards top or bottom 

word wrap 

margin justification, centering 

adjustable margins, tabs, indents 

reformat paragraphs 

move, copy, delete, paste blocks 

find with delete, insert, replace and wild card characters 

keyboard remapping 

multi-line headers, footers 


Bonnie Blue can handle lines longer than the screen is wide, 
by horizontally scrolling the line. And, unlike some programs, 
Bonnie Blue lets you include any displayable character in your 
text, such as block graphics and foreign language characters. 


Unique Features. With Bonnie Blue, you can “paint” 
display attributes onto your text, by the character, word, or 
line, or automatically as you enter text. With the monochrome 
adapter, you can paint any combination of underlined, bold, 
reverse video or blinking. With an 80 column monitor and the 
color/graphics adapter, this translates into a palette of 16 color 
combinations to choose from. And if your computer has both 
monitors, Bonnie Blue lets you use them both, shifting back 
and forth as you wish. 


IBM Personal Computer is a trademark of IBM Corp. 


Bonnie Blue Software °e::°s32"335 


L] Send me the Bonnie Blue System. | am 
enclosing $50 (NY State residents please 
add 7% sales tax). 


[] Checkenclosed L[] VISA (J MasterCard Sorry,noCOD. 


Credit Card No. 
Signature 
Name 


Address 
Nees eg eS Stale 


Company 


Epson Graftrax Plus is a trademark of Epson America Inc. 


(] Please send literature. 
lhavea 


Expires 


Powerful Printing Module. You can use these colors or 
display attributes to highlight text on the screen, and Bonnie 
Blue can remove them from a file when you want (all files 
created by Bonnie Blue are DOS standard). The Printing 
module understands these text attributes, and you can map 
them into any single printer function or combination. 

For example, normally you would want underlined text to 
print underlined. But you can tell Bonnie Blue to print 
underlined characters as both underlined and bold. Bright text 
on the screen can mean double struck, or emphasized and in 
italics. You are at the controls. 

The first Print formatting module supports all the text 
capabilities of the Epson MX series with Graftrax Plus. By the 
time this ad appears, we will be supporting other popular 
dot-matrix and letter quality printers. 

More than thirty “dot” commands give you added control of 
the format of your finished document. You can send it to a disk 
file instead of the printer, or preview the final page formatting 
on the screen. 


Toolbox. The Toolbox is a set of useful functions, called 
“filters” that allow you to extract information from your files 
and transform their content. With these tools, you can join 
files together, sort lines of text, count words, find and 
substitute patterns, etc. Writers and programmers find this a 
useful collection of productivity enhancers. 


Bonnie Blue is also great for a hard disk system. A thorough 
User's Guide, complemented by help screens and roadmaps, 
make the Bonnie Blue an exceptionally easy-to-learn and 
easy-to-use system. 

Order yours today, or send for our free brochure. Bonnie 
Blue is available exclusively from Bonnie Blue Software, 
P.O. Box 536, Liverpool, NY 13088. 





Minimum 


recommended system: 

IBM PC, 128K, 2 disk drives, 

PC-DOS 1.1 or 2.0, 80-column 

monitor or monochrome adapter, 

or both, Epson MX-80 or 

MX-100 with Graftrax Plus. 

ne Versions available soon for PCjr. 
Write for details. 

184 


Circle no. 10 on reader service card. 


NGS FORTH 


A FAST FORTH 

OPTIMIZED FORTHE IBM 
PERSONAL COMPUTER 
AND MSDOS COMPATIBLES. 
*79 STANDARD 

*FIG LOOKALIKE MODE 
*PC-DOS COMPATIBLE 
*ON-LINE CONFIGURABLE 


*ENVIRONMENT SAVE 
& LOAD 


*MULTI-SEGMENTED 
*EXTENDED ADDRESSING 
*AUTO LOAD SCREEN BOOT 
*LINE AND SCREEN EDITORS 


*DECOMPILER & 
DEBUGGING AIDS 


#3088 ASSEMBLER 

*BASIC GRAPHICS & SOUND 
*NGS ENHANCEMENTS 
*DETAILED MANUAL 
*INEXPENSIVE UPGRADES 
*NGS USER NEWSLETTER 


A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 


PRICE: $70 


PLEASE INCLUDE $2 POSTAGE & 
HANDLING WITH EACH ORDER. 

CALIFORNIA RESIDENTS : 
INCLUDE 6.5% SALES TAX. 


a 
NEXT GENERATION SYSTEMS 
P.O.BOX 2987 


SANTA CLARA, CA. 95055 
(408) 241-5909 


Circle no. 44 on reader service card. 
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of text processing. If the macro is pa- 
rameterized, markarg() is used to flag 
the text arguments in the input buffer 
and to prepare a stack of pointers to 
these argument values. This task, too, 
is complicated by the usual potential 
assortment of parentheses and string 
delimiters. Once the argument list is 
collected, it is a simple matter (possi- 
bly handled with outarg()) to emit the 
macro definition with the argument 
texts in place. 


installation 

Getting p to run on your system might 
be a bit tricky. There is a bootstrap 
problem — p uses features supported 
only by p and not by Hendrix’s compil- 
er — and there is a problem concern- 
ing the runtime support. 

Overcoming the bootstrap problem 
is actually quite simple. You should re- 
place double quotes as a character con- 
stant by the value 34 (my Small C 
compiler got confused in certain places 
until I did this). You need to replace 
all constants that your compiler does 
not support (e.g., the definitions of 
PARM and PARMNO and the values 
for base in the routine outnumber()). 
You might have to replace the charac- 
ter constants in the routine outdelim() 
if your compiler does not yet support 
those escape sequences. Finally, you 
will have to play preprocessor for those 
macros that are parameterized. (Yes, 
it was not nice to use those, but I did 
want to show how parameterized mac- 
ros can be used to clarify data types.) 

The runtime support is quite a dif- 
ferent matter. While I agree with Jim 
Hendrix that these matters ought to be 
standardized, I am much in favor of 
programming on my CP/M system at 
home just as I do on our Unix systems 
at the office. I have actually made a 
runtime support that looks like the 
standard libraries available with Unix 
version 7 and above, is based on CP/M, 
and supports all BIOS and BDOS calls 
from Small C. 

I have had access to chapter 17 of 
Hendrix’s book on Small C, describing 
his runtime support. While I did not 
have access to the runtime support it- 
self and therefore could not test it, I 
believe that installing p should be quite 


simple. The following probably must 
be done: 


FIBE should be defined as int. 

__drive() needs to access BDOS func- 
tion 25. 

__narg() is supported by the compiler. 

index() is Hendrix’s strchr(). 

itod() — can be coded using Hendrix 
itod(). 


I process the arguments to main() 
directly. Depending on the actual im- 
plementation, you might have to use 
Hendrix’s function getar(). 

I am assuming that the storage allo- 
cator, calloc()/cfree(), supports ran- 
dom order release of memory. The 
code in Listing Two (page 81) may be 
useful to those wishing to add such 


random order release to the Hendrix- 


Payne library published in the May 
and June 1984 issues of DDJ. 
Meanwhile, you probably should 
consult Kernighan and Ritchie’s book 
to learn about all the routines that are 
mentioned “‘extern” at the beginning 
of the program. Most of them are quite 
simple to construct. It is essential, 
however, that you provide multiple 
open files so that arbitrary nesting of 
file inclusion is possible. You will also 
need a memory allocator, calloc() and 
cfree(), that will reuse available space 
and is reasonably stable. I am using a 
scheme where memory above the load 
module and below the stack is man- 
aged by a list of words, each word 
pointing to the next. The low bit in 
each such word indicates if the area 
past that word and up to the next one is 
allocated or free. Kernighan and Rit- 
chie mention, and Unix supports, rou- 
tines to classify characters. This is 
most easily implemented as a 128-byte 
table with each byte classifying the 
corresponding character as special, up- 
per or lower case, numeric, hexadeci- 
mal, white space, punctuation, or con- 
trol character. The routines are then 
simple masking operations that can 
now be provided as macros. BBL 


Part of this work was done during a 
sabbatical spent at the University of |. 
Illinois; in particular, the Small C 
system was obtained from “UseNet.”’ 
p can be compiled with the C compiler 
on Unix/vii. 


(Listings begin on page 52) 
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LIFEBOAT™ 


Associates 


1651 Third Avenue 
New York, NY 10128 


800-847-7078 
212-860-0300 


Please send me free information on: 


(1 Lattice and development tools 

1) How to get your software published 
(1 Corporate purchase program 

_} Dealer program 





|] OEM agreements 


_| Send me the complete LIFEBOAT 
software catalog. $3.00 enclosed 
for postage and handling. 


LIFEBOAT, Software with Full Support, 
C-CHEST,TM Lifeboat Associates 
LATTICE C-FOOD SMORGASBORD and 
LATTICE WINDOW,TM Lattice, Inc. 





Company 
(ili 2a: MR a 


City 


State Zip 


RT 


Telephone 

HALO, TM Media Cybernetics IBM and PC,®TM International Business Machines 
PANEL,TM Roundhill Computer, Ltd MS,TM Microsoft 

PMATE and PLINK,TM Phonix Software CP/M86,1M Digital Research 

FLOAT87,TM Microfloat 
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IS (Text begins on page 46) 
Listing One 


* p -- smallC preprocessor 
* ats 6/83 


* define... 
* verbose to support -v for debugging 
char usage] = 


#ifdef verbose 
oe EG -wlsevi dAdo)  t—1 Wt hae a ev tin toeutJiI"s 


vflags /* set by —-v #/ 
#else 
ep twa nCevid teed: (4.05) fea ni: fin’ fees s 
#endiFf 
/* command names: %/ 
#define DEFINE 1 /* # define name text % / 
/* # define nameCname:...) text */ 
#define ELSE - /* # else %/ 
#define ENDIF 3 /* # endif % / 
#define IFDEF 4 /* # ifdef name % / 
#define IFNDEF 5 /* # ifndef name %/ 
#define INCLUDE 4 /* # include "file" */ 
/*® # include <file> %/ 
#define LINE 7 /* # line number name %/ 
#define UNDEF 3 /* # undef name %/ 
#define DEFAULT O /* any others passed on */ 
/* 
* "FEATURES": 
* 
* Macro calls must be fully contained on one source 
* line -- all lines can be continued with \s however. 
¥ 
* Recursive definitions are not detected as such. 
* ‘p’ will report as per NEST. 
* #else can be used (to reverse the current 
* #if condition) arbitrarily often. 
% / 


#include <stdio.h> 


/* 

* i/o kKeader file 
#define FILE eae type to represent files Cused as FILE) 
#define stdin 227 pre-opened standard input file 
#define stdout 77? pre-opened standard output file 
#define stderr ?°?? pre-opened diagnostic output file 
#define NULL 0 null pointers false 
#define EOF 22-7 end of file indication 

ef 


#include (ctype.h) 
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~ 
* 


% character classification macros header file 
# 
* isasciidi) i is ASCII character 
* isalnum(c) c is letter or digit 
% isalpha(tc) c is letter 
* isdigit(c) ec 1s digit 
* islower(c) c 1s lower case letter 
* isspace(c) c is white space 
* isupper(c) c is upper case letter 
* isxdigit(c) c is base 16 digit 
* 
+ i can be any integers isasciiCtc) must be true for c 
*/ 
#define INCR 890 /* line buffer increment */ 
#define HASH 12s /* hash table size Cpower of 2) *#/ 
#define NEST 10 /*® Limit for reprocessing - -1 is “infinite" */ 


/* emade states */ 


#define CMcmt 1 /* in comment */ 

#define CMstr 2 /* in string */ 

#define CMchr 3 /* in character constant */ 

#define PARM 0x80 /* flag macro parameter number */ 
#define PARMNO Ox7f /* extract parameter number */ 

/* 

* special data types 

%/ 
#define LIST int /* list of word or string values */ 
#define linext¢x) C#Cx)) /* ~) next element */ 

#define l_word¢x) ¢¢x)C1]) /* word value */ 

#define listr(x) €€x)+1) /* -) string value */ 
#define sz WORD 4 /*® size of word list element */ 


#define sz STR(s) (3+strlen(s)) /* size of string list element */ 


#define SYMBOL int /* list of symbol table elements */ 
#define sunextix) €#¢x)) /* -) next element */ 

#define s_vaitx) (Cx) T11) /%® -) defined value */ 

#define Ss -_nametx) €€xI+2) /%* ->) name */ 


#define s2z_SYM(n) (St+strlentn)) /* size of symbol table element */ 


/* 
* runtime suppert routines 
*%/ 
extern -drived)s /* BDOS function 25: current drive number */ 
~nargt)s /* number of arguments passed in this call */ 
cao fy's /* Cnel) return NULL or -) n elements of length 1 */ 
cfreet)s /* (p) free area at p: returned by calloc() #*/ 
exitd)s /* terminate program execution */ 
felosel)s /* Cf) close file described by f */ 
fgetct): /* Cf) return EOF or next character from file f */ 
fopen()s /* (nem) return NULL or descriptor for file “n" 
opened to read (m == "r")ds write C"w"ds 
or append ("a") #/ 
Ffoutcd)s /*® Cesf) write c on file fs return EOF or c *#/ 
fputsd)s /* (S59 fF) write string s on file f */ 
freopen()>, /* (Cnemsf) like fopen()s but close and reuse f */ 
index ()s /* (S90) find c in string s» return NULL or -> to it. 
"\O” is always found */ 
Ltod<)s /* Ci) return -) (static) string with i in decimal */ 


(Continued on next page) 
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(Listing Continued, text begins on page 46) 
Listing One 


/* 


%*/ 


int 


char 


List 


SYMBOL 
#ifdef 


int 
#endif 


PPLe 


mainCarges 


{ 
#ifdefFf 


#endif 
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strempc)s 
strepy)s 
strlent)s, 
strnempt)s 
strnepye)s 


Global data 


parmnoas 
linelenys 
Olinelen:s 
linenos 
oOlineno:s 
iflevel; 
skips 


eflag: 
cmode: 
*lines 
#ilps 
*olines 
*olps 


#¥drives 
*filenmss 
*filess 
*liness 
paras 


tsymbol 3 
HASH 


hashtablCHASH] 5 


*infiles 


argv? 
int argc 
int *argv:; 


Char *cps *#vp3 


verbose 
Lisi *i 0% 


/*® current drive is last 


/* 
i* 
/* 
/* 
/* 


/* 
/* 


/* 
{* 


/* 
/* 
f* 
/* 
/* 
/* 


/* 
{* 
/* 
/* 
/* 


/* 
/%* 
/* 
/* 


/* 


Ca9b) {» == >) O as string a is <3 == 
{a»b) copy string b to string a */ 


> string b */ 


(s)} return number of characters in string s */ 
Caxybrn)d Like stremp(): but for n bytes at most */ 
{axsbsn) like strepy()s but for n bytes at most */ 


current number of parameters */ 
current maximum usable length */ 


current line number */ 


depth of open #if */ 
non-O: iflevel to skip to */ 


set By -e? prevent position stamps */ 
comment ) mode */ 

dynamic input line buffer */ 

Current position in line */ 

dynamic output line buffer #*/ 

current position in oline */ 


include prefixes */ 
apen file names */ 
Qpen file pointers */ 
line numbers #*/ 
Parameters */ 


list of symbol table elements */ 
hash feature Coptional) */ 
symbol set by find«) to -> 
really SYMBOL #*: 


hashtab at s */ 
begin of chains */ 


Current input file #*/ 


include prefix */ 


¥a5 =. * axes 

¥vVp += _drivetd)3 

drive = pushs(drive>s vps 
(/* predefine “cpm” */ 


definel"cpm"s 


/* process arguments: 
(--argc) 


while 


3 5 


values may be joined or separate */ 


£ cp = *++argvi 


if C#ep 





Pacey 


(Continued on page 56) 
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eNEW P 


Before Johann Sebastian Bach developed 
a new method of tuning, you had to 
change instruments practically every time 
you wanted to change keys. Very difficult. 


Before Avocet introduced its family of 
cross-assemblers, developing micro-pro- 
cessor software was much the same. You 
needed a separate development system 
for practically every type of processor. 
Very difficult and very expensive. 


But with Avocet’s cross-assemblers, a 
single computer can develop software for 
virtually any microprocessor! Does that 
put us in a league with Bach? You decide. 


The Well- Tempered Cross-Assembler 


Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 3 years of actual 
use. Ask NASA, IBM, XEROX or the hun- 
dreds of other organizations that use them. 
Every time you see a new microprocessor- 
based product, there’s a good chance it 
was developed with Avocet cross- 
assemblers. 


Avocet cross-assemblers are easy to use. 
They run on any computer with CP/M* 
and process assembly language for the 
most popular microprocessor families. 


51/4” disk formats available at no extra 
cost include Osborne, Xerox, H-P, IBM 
PC, Kaypro, North Star, Zenith, 
Televideo, Otrona, DEC. 


Turn Your Computer Into A 
Complete Development System 


Of course, there’s more. Avocet has the 
tools you need from start to finish to enter, 
assemble and test your software and finally 
cast it in EPROM: 


Text Editor VEDIT -- full-screen text edi- 
tor by CompuView. Makes source code 
entry a snap. Full-screen text editing, plus 
TECO-like macro facility for repetitive 
tasks. Pre-configured for over 40 terminals 
and personal computers as well as in user- 
configurable form. 


CP/M-80 version 
CP /M-86 or MDOS version 
(when ordered with any Avocet product) 


EPROM Programmer -- Model 7128 
EPROM Programmer by GTek programs 
most EPROMS without the need for per- 
sonality modules. Self-contained power 
supply ... accepts ASCII commands and 
data from any computer through RS 232 
serial interface. Cross-assembler hex ob- 
ject files can be down-loaded directly. 
Commands include verify and read, as 
well as partial programming. 


PROM types supported: 2508, 2758, 
OOtG- 2716, 2532, 2792, ).2foer, 
97032, MCM8766, 2564, 2764, 27C64, 
27128, 8748, 8741, 8749, 8742, 8751, 
8755, plus Seeq and Xicor EEPROMS. 


o & 61016, O08) 6 S.e 6.2 6 6 5 45 2 





Avocet 
Cross-assembler 


e XASMZ80 

¢ XASM85 
XASMO05 
XASMO9 
XASM18 











XASMZ8 Z8 






Coming soon: XASM68K...68000 





(Upgrade kits will be available for new 


Target CP/M-80 
Microprocessor Version 


bees ee 


XASMEF8 F8/3870 
XASM400 COP400 





¢ CP/M-86 


Versions e 










$250.00 
each 









$200.00 
each 


$300.00 
each 


XASM75 NEC 7500 $500.00 


Call Us 


IBM PC, MSDOS** 


PROM types as they are introduced.) 


Programmer 
Options include: 

e Software Driver Package -- 

e enhanced features, no installation 
e required. 


BLP IM-80 Versione: > 34 S25 
®1BM-PC Versione’ 3) eka $ 95 
Mayo? Gabe). on: . hawt $ 30 


8748 family socket adaptor . i $ 
8751 family socket adaptor .. . $174 
e 8755 family socket adaptor .. . $135 


e G7228 Programmer by GTek -- baud 
e to 2400 ... superfast, adaptive program- 
e ming algorithms ... programs 2764 in one 
e minute. 


° Programmer 


e Ask us about Gangand PAL programmers. 
¢ HEXTRAN Universal HEX File Con- 


e verter -- Converts to and from Intel, 
e Motorola, MOS Technology, Mostek, 
e RCA, Fairchild, Tektronix, Texas 


e Instruments and Binary formats. 


® Converter, each version 








If you’re thinking about development sys- 
tems, call us for some straight talk. If we 
don’t have what you need, we’ll help you 
find out who does. If you like, we’ll even 
talk about Bach. 


CALL TOLL FREE 1-800-448-8500 
(In the U.S. except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now 
available -- please specify. Prices do not include shipping and 
handling -- call for exact quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research °° Trademark of Microsoft 


AVOCET 





SYSTEMS INC: 


DEPT. 784 - DDJ 

804 SOUTH STATE STREET 
DOVER, DELAWARE 19901 
302-734-0151 TELEX 467210 


Eo (Listing Continued, text begins on page 46) 
Listing One 


break § 
switch (Ccplid) 
case ’d’: 
Lf Ce Se 
5 


else if (--arge == 0} 
goto errors 
else 
cp = #¥++argvs 
if (vp = indextcps ’=")) 
¥vp++ = 7\O0"5 
else 
vp = ["y5 
definetcps vp): 
break? 
case ’e’: 
eflag = 13 
breaks 


case *1’5 
/* explicit prefixes in order right to left #*/ 
if (*#€ep += 2)) 
3 


else if (--arge == 0) 
goto errors 
else 
cp = *++arqgvs 
drive = pushs(drives cp)s 
break 3 


ease *u’: 
if Catcp += 27> 
5 
else if (--arge == 0) 
goto errors 


else 
cp = *++argvi 
undefine tcp) s 
break 3 
#ifdef verbose 
case ’v’: 
vflag = 13 
breaks 
#endif 
default: 
goto errors 
+ 
} 
/* input file drive is first include prefix */ 
yp = "ai"; 
¥vp += _drivet); 
/* allow input and output files */ 
switch Carge) ¢{ 
case 2: /* use inputs driveCinput)s output */ 
case 1: /* use inputs drivetinput) */ 
if. te pbb cess") 
{ vp = "95"5 
#vVp = ecplo]; 
} 
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if (freopen(#argvs "r"s stdin) == NULL) 


{ where("cannot read"» *argv)3 
exit ¢)5 
} 
Filenms = pushs(filenmss *#argv)§ 
#ifdef verbose 
if (vflag>) 
where("reading")§ 
#endif 
if (—“erecy 
{ if (freapen(*#++argvs “w"s stdout) == NULL) 
{ Filenms = NULL3 
where€"cannot write"; #argv)3 
exitd)s 
+ 
#ifdef verbose 
if (vflag) 
where€"writing"s #argv)$§ 
#endif 
+ 
case 0: /* use stdin» current drive #*/ 
break $ 
default: 
errors: where Cusage?) ; 
exit); 


} 


/* set first include prefix #/ 
drive = pushs(drive: vp)3 


#ifdef verbose 


if (vflag>? 
* for (ip = @rives ipf dip = l_nextCip)> 
where ("drive"s l_str¢€ip))3 
} 
#endif 
/* start reading on stdin */ 
infile = stdin 
/* allocate first buffers */ 
if (Cline = calloetINCRs 1)) == NULL 
©? €Oline = callocCINCRs 13) == NULL) 
{ where ("no room") § 
exitcd; 
- 
Qlinelen = linelen = INCR3; 
/* make sure: we first get a position stamp #*/ 
Qlineno = lineno - 3} 
/* main loop */ 
While (€getline()) 
if €! comment) && |' command>) 
process ()5 
+ 
getline) /* line = complete lines ascii */ 
/* return false on EOF */ 
{ Lie Es /* current character */ 


/* move to lps concatenating continued lines */ 
for (lp = linei 35 3 
{ Switch (c = fgetcCinfile)) ¢£ 
case *\\’5: 
(Continued on next page) 
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a (Listing Continued, text begins on page 46) 


Listing One 


Switch Ce 


FgetcCinfile)) ¢€ 


case EOF: 


WhereC"trailing \\")$ 


case "’\n’: 
++linenos 
continues 
+ 
PROTNAT 29 
default: 
if () isaseeisic?)) 
whereC"illegal character") § 
else 


inte) s 


continues 


case EOF: 


++ Jinenos 


if Clp '= line) 
breaks 
else if (files) 
{ Felosecinfile)§ 
#ifdef verbose 
if (vflag) 
where("end include") s5 
#endif 
infile = pop(&files); 
lineno = popt&lines)$ 
Qlineno = lineno - 33 /# stamp! ¥*/ 
popcéfilenms) 3 
continue 
+ 
return O§ 
case *\n’: 
++linenos 
if (lp == line) 
continues 
} 
breaki /* got a nonempty line % / 
- 
*lp = 7\0’§ 
#ifdef verbose 
if (vflag) 
where ("getline"s line) 
#endif 
return 13 
} 
comment ©) /* Tine = line w/out comments; lead white space */ 
/*# return true if comment line */ 
{ Char c3 
/* move from olp to Ips eliminating comments */ 
for (lip .= olp = lines: 3 > 
{ Switch (Cc = #olp++) ¢ 
case *\\’: 
if Ccmode '= CMstr && cmode ‘= CMchr) 
break 3 
inte); 
if ¢(c = #olpt++) 
break} (Continued on page 60, 
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~ ALL AT ONCE! 


AND NEVER A “LOCKED OUT” USER! 





Apex Industries Customer Data 


Customer Id: Acme 
Customer Name: Acme !ndustries 


Credit Rating: AA Credit Limit: 25000 
Current Balance: 12500 
30 Day Balance: 4000 
60 Day Balance: 1500 


90 Day Balance: 0 
Billing: 
Address: 2701 South Bayshore Drive 
City: Miami State: FL Zip: 33133 
Shipping: 
Address: 913 Majorca Avenue 
City: CoralGables State: FL Zip: 33134 
Phone: 305-856-7503 Contact: Gerald Green 





DataFlex is the only application development __ takes to actually write it to the file! The updated 
database which automatically gives you true record is then immediately available. The 
multi-user capabilities. Other systems can lock number of users who can access, and change, 
you out of records or entire files for the full records at the same time is limited only by 
time they are being used by someone else. the number of terminals on your system or 
DataFlex, however, locks only the databeing —_ network. Call or write today for all the details 
changed, and only during the micro-seconds it on DataFlex...the true multi-user database. 


DATA ACCESS CORPORATION 


8525 SW 129 Terrace, Miami, FL 33156 (305) 238-0012 
Telex 469021 DATA ACCESS Cl 


Compatible with CP/M-80, MSDOS networks, MP/M-86, Novell Sharenet, PC-Net, DMS Hi-net, TurboDOS multi-user, Molecular 
-Star, Televideo MmmOST, Action DPC/OS, IBM PC w/Corvus, OMNINET, 3Com EtherSeries and Micromation M/NET. 


MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. 
Circle no. 23 on reader service card. 


fo (Listing Continued, text begins on page 46) 
Listing One 


case *\0’: 


if (emode == 

{ es 63 
TIGA 
cmode 

} 

else if (Ccmod 

{ Le. C3 
Lec 
cmode 

+ 


Hin = PANO 3 
#ifdef verbose 


CMstr) 
skip) 
whereC"unbalanced \"")3 
RF 
= 03 
e == CMchr) 
skip) 


where("unbalanced \’")35 
Repel 
= 05 


if (vflag) 
where C"comment"s lined$ 
#endif 
return lp == lines 
case ’/’: 
if (cmode == 0 && *olp == "#73 
{ enode = CMcmts 
++olps 
if tig ee lane) 
RS ee ee 
continues 
Es 
breaks 
case "#5: 
if (emode == CMemt && *olp == ’/’)} 
{ emode = 03 
++olps 
continues 
+ 
break § 
Case *\"’s 
Switch Cemode) ¢{ 
case QO: 
cmode = CMstrs 
break3 
case CMstr: 
cmode = O03 
+ 
breaks 
case ’\’’5: 
Switch Cemode) ¢ 
Case 0: 
cmode = CMchrs 
break 5 
case CMchr: 
cmode = O03 
+ 
} 
if (cmode ‘= CMemt &@& €! isspace(e) {i lp ‘= line)) 
1nce) 5 
} 
+ 
command () /* process commands */ 
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Pie Ks 


/*® return true if done ¢(i.e.:s to skip) */ 


LIST #*dps 
PILE  FFo3 
char *cp3 


#if algorithm 


skip 


iflevel 


#else 


if non-zero: knows #if-level to which to skips 
while skipping: comment() is executeds but not process). 


current nesting depth of #if3 
counted even while skipping ‘of course). 


if skipping to current #if-levels stop skippings 
if not skippings start skipping to current level. 


In order to limit #else to at most one per #1if:s we 
would need a stack} why bother?? 


if ¢#line '= °#? (i: ¢k = kindt&lp)}) == DEFAULT) 
return skips 


/* process the command */ 
Switch Ck) ¢{ 
case DEFINE: 
if. Cf skip) 
definetlp»s marknm(1lp))35 


break? 
case ELSE: 
if ¢!' skip && iflevel == Q) 
where("#else without #i1f")3 
else if (skip == iflevel) 
skip = O% 
else if (skip == 0) 
skip = iflevels 
breaks 
case ENDIF: 
if ¢! skip && iflevel == QO) 
where ("#endif without #if")+$ 
else 
{ if (skip == iflevel) 
skip = 03 
--iflevels;s 
, 
breaks 
case IFDEF: 
case IFNDEF: 
++iflevel: 
if 4% skio> 
%, marknmClp) $ 


if CisnametIps"")) 
Lf Chindtip2? 


{ if ¢k == JFNDEPF3 
skip = iflevels 
} 
else 
{ if ¢k == IFDEF) 
skip = iflevels 
; 
z 
breaks 


case INCLUDE: 


of 0) ski pe (Continued on next page) 
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Pe (Listing Continued, text begins on page 46) 
Listing One 


Poe) ae PRE LC 1 
where ("#include?") 3 


else if (IlpC2] == 7:7) 
{ ++] pi 
if (fp = fopentlp: "r")) 
{ 
pushfile: files = pushw( files: infile); 
lines = pushwCliness LlLineno) 3 
lineno = 0% | 
GOlineno = lineno - 35 /* stamp ! #/ 
Filenms = pushs(filenms» 1p)3 


infile = fp; 
#ifdef verbose 


if (vflaqg) 
where(C"ineluding"» 1p)3 
#endif 
} 
else 
wheret"cannot open include file's lp)s 
} 
else 
< dp = drives 
LP oC ee CN) 
dp = l_nextidp)s 
*lo- = Soe 
for ¢€3 dps dp = l_next(dp?) 
{ *lp = *#l_strtdp)s 
if Cfo. = foapent¢los “r*)> 
goto pushfiles 
+ 
wWwhereC"cannot find include file“s lp+2)3 
> 
break § 
case LINE: 
tf.) 26820) 
{ if. CL S0drgitteta?> 
{ for. (kh: = #1 pe~ 7 OF senior t C#++3 95 > 
kK = k¥10 + #1p-’O"’ 5 
While Cisspacet#lp)>3 
++1p3 
cp = 1p; | 
While (#lp @6& !' isspace(#lip)) 
++1p3 
if (ee: ep 
{ *#1lp = 7\0’5 
lineno = k3 
if (€filenms) 
popt&filemms) 35 
filemms = pushs(filemms:s cp? 3 
breaks 
} 
} 
Where ("#line?")3 
} 
breaks 
case UNDEF: 
if ¢€! skip> 
{ marknmClp) s 
undefine(lp); 
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- 


} 
, return 15 
. + 
process () /* process regular input line */ 
{ char expands /* reprocess flag */ 
char c3 /* current input character */ 
SYMBOL #*sp3 /* -) found symbol */ 
char *names /* -) begin of name */ 
int. .24 
int nests 
/* expand one buffer into the other #/7 
nest = NEST+13 
do 
‘. lp = lines 
*Colp = oline?d = ’\Q’5 
expand = 0} 
whiletc = #1lp++) 
if €isalphatc) ti ¢c¢ == 7’_”} 
{ name = out(cds 
While (Cc = *#1lp) && Cisalnum(c)d tic == ’_7})) 
+ outa) 
++1p3 
} 
if (sp = find(name)) 
{ expand = 13 
outmacro(Cnames spds 
¥ 
> 
else if Cisdigit(c)) 
Ip = outnumber(--1lp)3 
else if €c == *\?? {i e == 34) 
lp = outdelim(--1lp)s 
¢ else 
outed); 
/* if something changed; flip buffers #/ 
if Cexpand> 
{ ip = lines 
line = olines 
Oline = Ips 
i = linelens 
linelen = olinelens 
Olinelen = 13 
+ 
+} while Cexpand && --nest)s; 
if Cexpand) 
where("#define nested too deep")s 
Output Coline?) s 
+ 
/* 
* symbol table routines 
* / 
definets: v) /* #define s v */ 
char *s3 /* name of symbol ?? */ 
char *v3 /* value */ 
+ SYMBOL #*r35 
Lyte Ss 
char *cp> *ps cs *#*names 
Y if ¢€' ismacro(s)) 
= returns (Continued on page 66) 
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Super assemblers 





plus the world’s 
largest selection of 





cross assemblers! 


Z-80 

Macroassembier $49.50 

Power for larger programs! This 

2500AD macroassembler includes: 

« Zilog Z-80 Macroassembler (with 
the same powerful features as all 
our assemblers) 

¢ powerful linker that will link up to 
128 files 

¢ Intel 8080 to Zilog Z-80 Source 
Code Converter (to convert all 
your Intel source to Zilog Syntax 
in one simple step) 

¢ COM to Hex Converter (to convert 
your object files to Hex for PROM 
creation, etc.) 

¢ 52 pages User Manual 


8086/88 Assembler 
with Translator $99.50 
Available for MSDOS, PCDOS, or 
CPM/86! This fully relocatable macro- 
assembler will asemble and link code 
for MSDOS (PCDOS) AND CPM/86 
on either a CPM/86 or MSDOS 
machine. This package also includes: 
¢ An 8080 to 8086 source code 
translator (no limit on program 
size to translate) 
¢ AZ-80 to 8086 translator 
¢ 64 page user manual 
¢ 4 linkers included: 
—MSDOS produces .EXE file 
—CPM/86 produces .CMD file 
—Pure object code generation 
— Object code and address 
information only 
Linker features: 
¢ Links up to 128 files 
¢ Submit mode invocation 
¢ Code, Data Stack and extra 
segments 
* Handles complex overlays 
* Written in assembly language for 
fast assemblies. 
* MICROSOFT .REL format option 


Z-8000 Cross Development 
Package $199.50 
Instant Z-8000 Software! This 
package allows development and 
conversion of software for the 
Z8001, 8002, 8003 and 8004 based 
machines on a Z-80, Z-8000 or 8086 
machine. This powerful package 
includes: 
¢ aZ-80/8080 to Z-8000 Assembly 
Language Source Code Translator 
¢ Z-8000 Macro Cross Assembler 
and Linker 
The Translators provide Z-8000 
source code from Intel 8080 or Zilog 
Z-80 source code. The Z-8000 
source code used by these 
packages are the unique 2500AD 
syntax using Zilog mnemonics, 
designed to make the transition 
from Z-80 code writing to Z-8000 
easy. 





Alli 2500 AD Assemblers and 
Cross Assemblers support the 
following features: 


Relocatable Code — the 
packages include a versatile Linker 
that will link up to 128 files together, 
or just be used for external 
reference resolution. Supports 
separate Code and Data space. 
The Linker allows Submit Mode or 
Command Invocation. 

Large File Handling Capacity 
—the Assembler will process files 
as large as the disk storage device. 
All buffers including the symbol table 
buffer overflow to disk. 

Powerful Macro Section— 
handles string comparisons during 
parameter substitutions. Recursion 
and nesting limited only by the 
amount of disk storage available. 
Conditional Assembly— allows 
up to 248 levels of nesting. 





Circle no. 1 on reader service card. 


Assembly Time Calculator— 
will perform calculations with up to 
16 pending operands, using 16 

or 32 Bit arithmetic (32 Bit only for 
16 Bit products). The algebraic 
hierarchy may be changed through 
the use of parentheses. 


include files supported— 
Listing Control— allows listing 
of sections on the program with 
convenient assembly error detec- 
tion overrides, along with assembly 
run time commands that may be 
used to dynamically change the 
listing mode during assembly. 
Hex File Converter, included 
—for those who have special 
requirements, and need to generate 
object code in this format. 


Cross reference table 
generated— 


Plain English Error 
Messages—- 


System requirements for all pro- 
grams: Z-80 CP/M 2.2 System with 
94k TPA and atleast a 96 column 
printer is recommended. Or 
8086/88 256k CP/M-86 or MSDOS 
(PCDOS). 

Cross Assembler Special Features 
Z-8—512 User defined registers 
names, standard Zilog and Z-80 
style syntax support. 
8748—standard Intel and Z-80 
style syntax supported. 
8051—512 User defined register 
or addressable bit names. 

6800 Family— absolute or 
relocatable modes, all addressing 
modes supported, Motorola syntax 
compatible. 

6502—Standard syntax or Z-80 
type syntax supported, all 
addressing modes supported. 


= a we 8086 and Z-8000 XASM includes Source Code Translators __ 








a x 
ZILOG IBM P.C. IBM P.C. OLIVETTI : 
i Z-80 SYSTEM 8000 8086/88 8086/88 M-20 8 
a CP/M® UNIX MSDOS CP/M 86 PCOS i 
; 8086/88 ASM $ 99.50 $ 99.50 
§ 8086/88 XASM $199.50 $750.00 $199.50 8 
a 16000(all) XASM new 199.50 750.00 199.50 199.50 199.50 8 
f 68000 XASM new 199.50 750.00 199.50 199.50 199.50 a 
12-8000 ASM 750.00 299.50 
4 Z-8000 XASM 199.50 199.50 199.50 g 
5 Z-80ASM 49.50 1 
a Z-80 XASM 500.00 99.50 99.50 99.50 B 
§ 7Z-8XASM 99.50 500.00 99.50 99.50 99.50 a 
§ = 6301(CMOS) new 99.50 500.00 99.50 99.50 99.50 ; 
6500 XASM 99.50 500.00 99.50 99.50 99.50 7 
i 6502 XASM 99.50 500.00 99.50 99.50 99.50 # 
5 65CO2(CMOS)XASMnew 99.50 500.00 99.50 99.50 99.50 A 
& 6800,2,8 XASM 99.50 500.00 99.50 99.50 99.50 : 
§ —6801,03 XASM 99.50 500.00 99.50 99.50 99.50 d 
6805 XASM 99.50 500.00 99.50 99.50 99.50 ; 
5 6809 XASM 99.50 500.00 99.50 99.50 99.50 y 
R 8748 XASM 99.50 500.00 99.50 99.50 99.50 # 
E 8051 XASM 99.50 500.00 99.50 99.50 99.50 a 
& 8080 XASM 99.50 500.00 99.50 99.50 99.50 a 
5 8085 XASM new 99.50 500.00 99.50 99.50 99.50 
5 1802 XASMnew 99.50 500.00 99.50 99.50 99.50 : 
5 F8/3870 XASM new 99.50 500.00 99.50 99.50 99.50 a 
5 COPS400 XASM new 99.50 500.00 99.50 99.50 99.50 E 
a NEC7500 XASM new 99.50 500.00 99.50 99.50 99.50 i 
NSC800 new 99.50 500.00 99.50 99.50 99.50 
i Subtotal Be oe ds rap ee ee Se er § 
Ef Name i i—C—Cs—Cs—CSsssS—SsSS.' TO ORDER. Simply circle the product or 
Company products you wantin the price columns above, 5 
enter the subtotal at the bottom of that column 
f Address and add up your total order. Don’t forget ; 
Clive States Zip shipping/handling. Total $ ' 
g Phone —______ Ext. Check one: shipping/handling é 
y .Makeand model of computer [_] 8” Single Density ($6.50 per unit, : 
5 system L] 5%" Osborne $20.00 per unit for 
§ (© C.O.D.(2500AD pays C.O.D. charges) = ah Ge Int’l. airmail) $ 
artridge Ta 
U VISA or MasterCard #, Exp. oe m0. YC) [| Apple Softcard) Total Order S —_ Research, Inc. a 
é Signature ; 
; ‘ 
a ty 
Pi d 
| ZBOOADSCFIVAREINE | 
: sa 
be ee es oe = PO. Box 441410, Aurora, CO 80014, 303-752-4382 TELEX 752659/AD om om om com om om on om om al 





iO (Listing Continued, text begins on page 46) 
Listing One 


/* prune and parametrize value #*/ 
while Cisspace(#v)) 


++ 5 
LF CRY) 
{ for (cp = v + strlen(v)s cp != vs 3} 
if C! isspace¢t#--cp) > 
breaks 
else 
#¥cop = *\0O75 
/* if we have parameters: replace names by positions */ 
if (parmnoad 
{ p= cp = vi 
while (€c = #cpt++) 
if €isalpha(e)? ti ¢ == ’_")} 
{ #(name = p++) = c3 
while ((€c = #cp) 
6& Cisalnum(e) ti ec == 7_7 33 
{ ¥pt+ = CH 
++cps 
} 
if (f = findparm(name: p-name)) 
{ *¥(p = name) f | PARMSs 
++p3 
} 
+ 
else 
+ #pt+ = cs 
/* name as trailer of a constant?? */ 
PE E> ee oe 
@6°(#ep == *x’ 1) #*ep s=° "X92 
do 
ptt = #eptts 
While Cisxdigit(#cp))3 
else if (Cisdigit(c)) 
while Cisdigit(#*cp)) 
H#pt+ = HO ptt 
else if (c == 7\\") 
i*: L860) 
p++ = HeOptses 
} 
#p = 7\0'3 
+ 
} 
/* check if (different) redefinition ¥*/ 
if (r= find (s)) 
£ if (Cstremp(s val Crd i-vy4t=: 0) 
where("redefining"s s)3 
undefinecs) $ /* parmno may change */ 
#ifdef verbose 
if (vflaqg) 
Ffnuts("redefine "; stderr) 
#endif 
} 
/* if parametrized: save count */ 
if (Cparmnmno) 
{ cp = § + strlen(s)3 
4p Shs 
¥#++Cp = parmnos 
(Continued on page 68) 
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THE PROGRAMMERS SHOP 


helps compare, evaluate, find products. Straight answers for serious programmers. 
Our Free Report: PRODUCTIVITY - MSDOS | Wace sensi 


- Programmer's Referral List + Dealer's Inquire PROFILER - Examine MSDOS program execution 
* Compare Products » Newsletter Assume use of compiler and typical editor. What commercial or public domain prod- § speeds. Determine where to improve programs in any 
» Help find a Publisher * Rush Order ucts, what techniques improve productivity? “Productivity with MSDOS" is a growing | Microsoft language, Lattice, or C86. Make histograms 
- Evaluation Literature free + Over300products | document with some answers. Call to request it. Help improve it. Earn $50 credit to- {| that show time spent in portions of your program, and 
* BULLETIN BOARD - 7 PM to 7 AM 617-461-0174 ward any purchase when we add any description, code, or idea received from you. doing MSDOS 1/0, etc. $175. 


OUR LIST OUR 
LANGUAGE LIBRARIES ag bLO7:V ie = ENVIRONMENT PRICE PRICE 


LIST 
“C” LANGUAGE Silesia EDITORS Programming 
APPLE:AZTECC-Full, ASM $199 call © CScreenwith source 8080/86 NA C to dBASE interface 8080/85 $125 $115 PASCAL MT + 86 CPM86/IBM $400 $289 
C Tools 1 - String, Screen PCDOS NA 115 without SPP CPM80 350 249 


8080: BDSC-Fast, popular 150 125 EDIX-clean PCDOS 195 

8080: AZTECC- Full 199 call  FINALWORD-for manuals 8080/86 300 C Tools 2 - OS Interface PCDOS NA 92 MS PASCAL 86 MSDOS 350 255 
780: ECOSOFT-Fast, Full 250 225 -MINCE-likeEMACS CPM, PCDOS 175 FLOAT 87 - Lattice, PL1 PCDOS NA 115 SBB PASCAL-great, fast PCDOS 350 315 
8086: C86-optimizer,Meg 395 call  PMATE - powerful CPM 195 GRAPHICS: GSX - 80 NA 75 PASCAL 64 - nearty full COM64 99 89 
8086: Lattice-New1.1&2.0 500 call 8086 225 Bee ae vane oa PC a ee SBB Jr - best to leam PCDOS NA 95 
; MS ai! VEDIT- ful, liked CPM, PCDOS 150 reanleat for C - full, 200+ 

De Reseach Hecate oe en 569 8086 200 159 ISAM: Access Manager - 86 400 300 


Desmet by CWare-Fast 8086 109 99 fey-bar-yyn Soe an mene ae ae 


PHACT - with C p NA 250 

EEYSTey environment MS FORTRAN-86-Meg  MSDOS $350 $255 _FABS 3 150 135 Assembler&Tools-DRI 8086 200 159 
Active Trace-debug  808086$ 80 72  SoFORTRAN - 86 CPM-86 425 345 PASCAL TOOLS - Blaise NA 115 COBOL-LevelI 3086 1600 1275 
MBASIC-80-MicroSott 8080 375 255  FORTRAN-80-66decent CPM-80 500 350 SCREEN: Display Mgr. 86 373 CODESMITH-86-debug PCDOS 149 139 
BASCOM-86- MicroSoft 8085 395 279  INTELFORTRAN - 86 IBMPC NA 1400 _PANEL-86 - many languages 245 ~~ GCLISP PCDOS 495 475 
CB.86 - DRI CPM86 800 439. DRFORTRAN COMING WINDOWS for C PC 15 |QLISP-full 1000KRAM PCDOS 175 call 


OTHER PRODUCTS 


Prof. BASICCompiler PCDOS 345 325 | RMFORTRANCOMING Virtual Screen-Amber = PCDOS 295 call 
BASIC Dev'tSystem PCDOS 79 72 


a a 
C INTERPRETERS for MSDOS - Ask about 


one for beginners for $85 or full 

development for $500. 

_C HELPER includes source in C for MSDOS 
or CPM80 for a DIFF, GREP, Flow- 
charter, C Beautifier and others. Manage 
your source code easier. $125. 

PROLOG86 Interpreter for MSDOS includes 
tutorials, reference and good examples. 
Learn in first few hours. For Proto- 


Call for a catalog, literature, and answers 


800-421-8006 | = 


THE PROGRAMMER’S SHOP™ 


! _ 128-D Rockland Street, Hanover, MA 02339. 
typing, Natural Language or Al. $125. Visa 617-826-7531, Mass: 800-442-8070 MasterCard 


Janus ADA - solid value PCDOS 500 449 
MBP Cobol-86 - fast 8086 750 695 
Microshell improve CPM 8080 150 
Microsoft MASM-86 MSDOS 100 
PL/1-86 8086 750 
PLINK-86 - overlays 8086 350 
POWER - recover files 8080/86 169 
READ CPM86fromPCDOS PCDOS NA 
READ PCDOS on an|IBMPC CPM86 NA 
PCDOS 125 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. 


Ask about COD and POs. 
Special formats available. 


Circle no. 51 on reader service card. 


PROLOG-36 © 


Learn Fast, 
Experiment, Prototype 


1 or 2 pages of PROLOG would require 10 or 15 pages in 
“C”- and PROLOG is much easier. 


In one evening develop a feel for PROLOG. In a few days 
understand and enhance artificial intelligence programs 
included like: 


* an Expert System 
* a Natural Language Processor 


PROLOG-86 includes two tutorials, a reference, 6 sample 
programs and a PROLOG Interpreter. 


Intro price: $125 for PCDOS, MSDOS or CPM-86. Call: 


Full Refund if not satisfied in first 3 weeks. 


SOLUTION SYSTEMS 


45-D Accord Park Drive, Norwell, MA 02061 


617-871-5435 


Ci cle no 52 on reader service card 


C Helper 


UNIX-like Utilities for 
C Programming with source 


Save time when working with your C programs. Full 
source lets you make them work your way, helps you 
learn. 


Utilities included: compare files (DIFF), cross reference 
your variables (CCREF), examine the flow of functions as 
they call each other (FCHART), format and indent pro- 
grams (pretty printer), search for patterns (GREP). Others 
check program syntax, print programs your way and 
more. 


$135 for PCDOS, MSDOS, CPM-86 or CPM80. 


Call with questions or for “Programming with C Helper”. 


SOLUTION SYSTEMS 


45-D Accord Park Drive, Norwell, MA 02061 


617-871-5435 





. (Listing Continued, text begins on page 46) 
Listing One 


#ifdef 


#else 


#endif 


#ifdef 


#endif 


#ifdef 


#endif 
} 


undefinets? 


{ 


#ifdef 


#else 


+ FO SONOS 


/* ready to make new entry */ 


Lf (Cr = calloc(sz_SYM(s)+s 1)) == NULL) 

{ where("na roam") 5 
exitt)s 

} 

else 

{ 

HASH /* find() sets symbol -) hashtab at 5s */ 
Sunext¢r) = *#symbol 5 
¥symbol = r3 


Ssinextcr) 
symbol = r 


s.valCr) = NULLS 
strcepy(s_name(rds s)3 
verbose 
if (vflaq) 
Fputs¢"define “s stderr): 


/* save new value #/ 


if ((S_val¢r)d = calloetstrlen(t€v)i4+1+ 13) == NULL) 
{ whereC"no room") 5 
exitc)s 
} 
strepy(s_val(rds vi 
verbose 
if (vflaqg) 
{ Fputs(s:s stderr); 


Fpute(” %s stderrds 
Fputs(s_val(rds stderr)3 
Fouted? \n’ s+ stderr) 


/* #Hundef s */ 
char *s3 /* name of symbol ?? #/ 


SYMBOL *r» *p3 


if Cisname (ss "") && Cr = Findts))) 
{ cfree(Cs_valtrd)5 


/* need to unlink symbol descriptor from chain */ 


HASH /* find) sets symbol -) hashtab at s */ 
if (r == *symbol) 
*symbol = s_next¢C*symbol) 3 
else 
{ for €p = *symbol3 
if Cr == symbol)? 
symbol = s_next(symbol)3 
else 
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{ for (p = symbols 
#endif 
| snext(p) '= ri} p = S_next(p)) 


9 
S.next¢p) = si_nextcrds 
+ 
cfree(r)3 
#ifdef verbose 


if (vflag) 
where C"undefine"s 533 
#endif 
} 
+ 
Find(s) /* locate s in symbol table */ 
/* return NULL or.) entry -*#/ 
Char *s35 /*® name to find */ 
{ SYMBOL #r5 


Char *sps *rps e3 
#ifdef HASH 
nt Fs 


/* symbol table chains start in hashtab([] */ 
/* compute hash address as sum of letters */ 
for (h = Os sp = Si ec = *#Sps ++5p) 

nh += cy 
symbol = hashtab + Ch & CHASH-1))5 


/* run down the chain */ 


for (r = *symboli 
#else 
/* symbol table chain is one linear list ¥*/ 
/* run down the chain */ 
for Cr = symbols 
#endif 
rs or = S_next(r)) 
+ for (sp = Ss? rp = Ssinamet(r)ds (c = *Sp) && *¥rp == ci +4+5p1s +4+rp) 
3 
if Ce s= "\0" 6 Carp == 7 \0" Lb atrp- Se hat) ) 
return 1s 
} 
return NULLS 
} 
Findparm(s,s 1) /* return QO or parameter number */ 
Char *s3 /* -) begin of possible parameter name */ 
LAG. 23 /* Length of name */ 
{ Eno Fs 
LiStT.*ps 
for (fF = Os p = parms$ ps ++fs p = lienext(p)> 
if (strnempClestr(p)s ss 1) == QO) 
return parmno - £5 
return O35 
, 
isname(s1d) /* trues if s is a name */ 
/* return —> delimeter or NULL */ 
char *s3 /%* -) begin of name */ 
char *#d3 /* chars in which name may also end */ 
{ char #cps c3 
for (cp = si index(d» c = *cp) == NULLS ++cp) 
if ¢€' isalnum(c) && c != ’_’} 


goto errors 
(Continued on next page) 
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i (Listing Continued, text begins on page 46) 
Listing One 


if cp == s fi isdigit(*s)) 
{ 
error: whereC"illegal name"s s)3 
return NULL3$ 
} 
return cps /* return —-) delimeter */ 
Si 
ismacro(s) /* trues if s is a macro header */ 
Char *s35 /* -) begin of name or header */ 
+ Char *cps c3 
while (Cparms) /* free old parameter list */ 
pop(&parms) 3 
parmno = O§ 
if ¢((s = isnameC(s» “¢€")) == NULL) 
return O35 
if (#5) /* we have a new macro */ 
{ ¥S = '\O"5 /* delimit name */ 
do /* and parse parameters */ 
{ while Cisspace(#++s) > 
3 
if (cp = isname(ss “sd \t")3 
{ c = *cCp3 
#ep = 7\0’5 
Parms = pushs(parms;s §)5 
++ parmnos 
+ 
else 
return O§ 
While Cisspace(c)) 
c = *#++¢cCp35 
S$ = cps 
+ while (ec == 797)35 
LF oeG ete oF 9 
{ Wwhere("illegal macro header")3 
return O35 
+ 
bs 
return 15 
+ 
marknm(s) /* Bypass and terminate macro header */ 
/* return —> value */ 
Char *s5 /* -) begin of name */ 
{ char cs 
/* find white space or (¢ #*/ 
while (€Cc = *5) && ! isspace(c) &6& c != ’¢C€7) 
++5 5 
/*® if (Cs there must be names: white space and then ) */ 
Lf feo Ss 2G") 
{ While (Cc = #++5) @6& c != 7)’) 
3 
/* after >) there must be \O or white space */ 
if Cc &6& (sfiJ == ’\0’ ii isspace(sf1i]))) 
++5 5 
} 
70 
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TOTAL CONTROL: hese 


FORTH: FOR Z-80®, 8086, 68000, and IBM® PC 


Complies with the New 83- Standard 
GRAPHICS - GAMES e COMMUNICATIONS e ROBOTICS 


DATA ACQUISITION - 


@ FORTH programs are _ instantly 
portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/O0 ports. 

@ FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 
plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc.; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 


= Lj 





Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA90295 
Phone credit card orders to (213) 306-7412 


PROCESS CONTROL 


FORTH Application Development Systems 
include interpreter/compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M Il, $100.00: 
8080 FORTH for CP/M 2.2 or MP/M II, $100.00; 
8086 FORTH for CP/M-86 or MS-DOS, $100.00; 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00; 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + . $250.00 
8086 FORTH + for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
Or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 


Circle no. 35 on reader service card. 


The Cost Efficient EPROM rome 


i bedadpadt “dabei COMPUTER CORP. 


DISPLAY () Bright 1” high 
display system |] Progress 
indicated during programming 
|] Error messages 


KEYBOARD (] Full travel entry 
keys L] Auto repeat L] Illumi- 
nated function indicators 
INTERFACE ) RS-232C for 
data transfer ] 110-19.2K 
baud L] X-on X-off control of 
serial data 


FUNCTIONS J Fast and stan- 
dard programming algorithms 


L] Single key commands 

|] Search finds data strings up 
to 256 bytes long L] Electronic 
signatures for easy data error 
I.D. U “FF" skipping for max 
programming speed [] User 
sets memory boundaries L) 15 
commands including move, 
edit, fill, search, etc. functions 
L] Extended mode reads 
EPROM sets 


GENERAL (] Stand alone 
operation, external terminal 
not needed for full command 


set | Total support LJ) 28 pin 


sockets L] Faulty EPROMS indi- 


cated at socket |] Programs 1 
to 128K devices L] Built in 
diagnostics L] No calibration 
required L] No personality 
modules to buy L] Complete 
with 128K buffer LJ Only 


$995.00 
COMPLETE 


Dealer inquiries welcome. 





SOUTHERN COMPUTER CORPORATION 
3720 N. Stratford Rd., Atlanta, GA 30342, 404-231-5363 


Circle no. 70 on reader service card. 
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C 


PC CHS 
im AMT 
available 


FULL DEVELOPMENT PACKAGE 
- C Compiler 

* Assembler 

* Linker and Librarian 

* Full-Screen Editor 

* Newsletter for bugs/updates 


SYMBOLIC DEBUGGER 

* Monitor and change variables by 
name using C expressions 

* Multi-Screen support for debugging 
PC graphics and interactive systems 

* Optionally display C source during 
execution 

* Breakpoint by Function and Line # 


COMPLETE IMPLEMENTATION 
* Both 1.0 and 2.0 DOS support 
* Everything in K&R (incl. STDIO) 
* Intel assembler mnemonics 
* Both 8087 and Software Floating Point 


OUTSTANDING PERFORMANCE 
Sieve Benchmark 
COMPILE 4 Sec. RAM — 
22 Sec FDISK 
LINK 6 Sec. RAM — 
34 Sec. FDISK 
RUN 12 Sec. 
SIZE 8192 bytes 




































DeSmet C 
Development Package 


To Order Specify: 






Machine 


OS 
Disk O 8” 














C1 MS-DOS O CP/M-86 
O5%S$S 05% DS 


WARE 


CORPORATION 


P.O. BOX 710097 
San Jose, CA 95171-0097 
(408) 736-6905 


California residents add sales tax. Shipping: U.S. no 
charge, Canada add $5, elsewhere add $15. Checks 
must be on a US Bank and in US Dollars. 










Circle no. 22 on reader service card. 


fo (Listing Continued, text begins on page 46) 
Listing One 


/* terminate in place of white space */ 


if (#5) 
¥5t+ = *\O"$ 
/* this is a rough draft -- see ismacro/isname */ 
return s3 
} 
/* 
* input and output routines 
%/ 
inte) /* store incoming character */ 
char c3 /* to be stored at lp */ 
{ 
#1l p++ = c5 
if Clip >= linetlinelen) 
rebuffc&élp: &lines &linelen?s 
+ 
gutcc? /* store a characters return -—-> stored char */ 
char c3 /* to be stored at olp */ 
{ 
*olptt+ ae pag 
if Colp >= olinetolinelen) 
rebuff(Céolp» &olines &olinelends 
#olp = ’\0’5 /* maintain trailer */ 
return olp-13 
+ 
rebuff(€p»s buffs len) /* make buffer longer */ 
int *p5 /* & current pointer */ 
int *bufs /* & buffer pointer */ 
int #lens /* & maximum length */ 
{ 
if ((*#p = calloc(*#len + INCRs 1)) == NULL) 
{ where("no room") s 
exitcds 
} 
strncpyC#p: *bufs *len)s 
efreeC*#buf) 3 
*buf = *p3 
*¥p = *buf + *#lens 
*len += INCRS$ 
} 
output¢s>d /*® write a string */ 
char *S5 /* to write as a line */ 
{ 
/* synchronize output linecount */ 
if ¢€' eflag && ++olineno != lineno) 
{ if (++olineno '= lineno) 

{ Foute(’#’s stdout) 
FonutsCitodtColineno = linenod: stdout)s 
if (filenms) 

{ Fautect” "ss stdout >$ 


Foputs¢Cl_strctfilenms)s stdout) s 
+ 
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} 


/* amit 
fputs(ss; 
Le OT ast 
{ 


} 


C consta 


digits 
Odigits 
Oxdigits 
Te 


x Ke KK KK K 


/ 
outnumber (cp) 


Char *cp 
{ char CC: 

int base 

int 25 


= ] 
05 
Cle 


base 
i= 
ie 
{ 


for € 4 


} 
for 


Cp 


return c 
} 


outdelim(cp) 


Fpute(’? \n’ +s stdout) s 


string as a line */ 


stdout); 

ec’ \n’s stdout?) == EOF) 
where C"oputput file full")35 
ePxitc)s 


nt processing: 


decimal 

octal 

hexadecimal 

character value Cescapes ok) 


/*® store aC constant in decimal */ 
/* return —-) past it ¥*/ 
3 /* -) constant text Cdigit)? */ 
DF 
: 
05 
#Cp) == 707) 
base = 0103 
Lf (le = #+4¢p) == "sy" 14 © se XK"? 
{ base = 0x1035 
Cc = *++Cp3 
+ 
C3 ¢c. = #++c9) 
if Cisdigitcte) 
See ay § 
else if (Cisxdigit(c)) 
if Cisupper(c)) 
STR ay im LO4 
else 
Sore ats. =" TGs 
else 
break § 
if €c < base) 
1 = i*base + c3 
else | 
break § 
itod(i)s c = #p$ ++p) 
Outceds 
D3 


/* store a delimited strings return —) 


char *cp35 /%* —-) delimeter */ 
{ char cs #*p3 
if (Cc = *¢p2. s=-:"(""9 
{ outed) 
while (c = #++cp) 
< Qutte)s 
Pr ee eee A) 
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past trailer */ 


(Continued on next page) 
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- (Listing Continued, text begins on page 46) 


Listing One 


else 


return cptls 


EF C6. BS TNN TD 
if (c = *++cp) 
outa) s 
else 
breaks 
} 
/*® it must be character constant */ 
switch (c = *++cp) ¢{ 
case O: 
case *\?’: 


goto errors 
oe i aes 
Switch (c = *++cp) ¢f 


case 


case ’b’: c= ’\b’s breaks 
case "f’: c= ’\f’5 breaks 
case "’n’: c = ’\n’s breaks 
ease "r’?s c= 7*\r’s breaks 
Cage. VETS oe eel NE 

case *\’’5 

case *\\’5 

case "*\"’5 breaks 


default: 


ie) 3 eGiatt te) te Re Or FD 
goto errors 
if. CisdigitCeplil) @@ eplli: (="" 7") 
{ woe. Ce tte Sy Se St+6 pe es 
if CisdigitCeplil> &@& eplil <= ’7") 
ae eter eS) ee as 
} 
+ 
default: 
LP Catton feta 2 
{ ; 
error: where("illegal character constant")3 
while C#cp && *#cp != ’\'") 
++cCp3 
if (*cp) 
++cCp3 
breaks 
- 
for €p = itod(c)s *ps ++p) 
gut C#p)s 
See es 
++cCp5 
+ 
return cp35 
+ 
/* 
* macro processing 
* / 


outmacrolats 


char *ats5 
SYMBOL ¥*s35 


/%* replace string by macro value */ 


/* replace from here on */ 
/* using this definition */ 


{ Char *vp» C3 
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The BDS C Compiler... 


“Performance: Excellent. 
Documentation: Excellent. 
Ease Of Use: Excellent.” 


That’s what /nfoWorld said when we introduced 
the BDS C Compiler four years ago. Today, the 
updated BDS Version 1.5 is even better. 

First, the BDS is still the fastest CPM/80-C 
compiler available anywhere. 

Next, the new revised user’s guide comes 
complete with tutorials, hints, error messages and an 
easy-to-use index — the perfect manual for beginner 
or seasoned pro. 

Plus, the following, all for one price: Upgraded file 
searching ability for all compiler/linkage system files. 
Enhanced file I/O mechanism that lets you 
manipulate files anywhere in your system. Support 
system for float and /ong via library functions. An 
interactive symbolic debugger. Dynamic overlays. 
Full source code for libraries and run-time package. 
Sample programs include utilities and games. 

Don’t waste another minute on a slow language 
processor. Order now. 

Complete Package (two 8”SSDD disks, 181-page manual): 
$150. Free shipping on prepaid orders inside USA. VISA/MC, 
C.O.D.’s, rush orders accepted. Call for information on other 


disk formats. BDS C is designed for use with CP/M-80 operating systems, version 2.2. 
or higher. It is not currently available for CP/M-86 or MS- DOS. 








—— CP/M SIMULATOR/DEBUGGER — 
OR THE INTEL 8748/8048——— 






































ANNOUNCING SIM48 


SIM48 allows you to load, trace, execute and save Intel 
8748/8048 software using standard Intel Hex files. 


SIM48 allows you to simulate all instruction operations, 
timer/counter operations, !/O operations, interrupt 
processing, reset execution, internal and external RAM 
and ROM. 

SIM48’s command set includes load, breakpoint, 
assemble, list (disassemble), trace, call and execute 
commands (as seen in DDT and ZSID). 










SIM48 allows you to simulate all software operations of 
the 8748/8048, yet costs 1/20th of an In-Circuit Emulator. 


SIM48 is CP/M compatible. Supplied on an 8” SSSD 
diskette. 


SIM22 (for Intel 8021/8022’s) and SIM51 (for Intel 
8751/8051’s) soon to be released. 


SINGS. 50s $150.00 SIM48 Manual...... $20.00 












Plus shipping and handling. 
N.Y. State residents add sales tax. 
Mastercard/Visa 


locical Systems 


6184 TEALL STATION 
SYRACUSE, NY 13217 
(315) 457-9416 


SIM48, SIM22, and SIMS51 are trademarks of Logical Systems Corporation. 
CP/M, ZSID. and DOT are trademarks of Digital Research. 






BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 


(617) 576-3828 


Way 
Wy 
‘e | 


























Circle no. 8 on reader service card. _ __ Circle no. 40 on reader ser 
Don't just put your applications in windows—put windows in your 
applications with VSI—the window manager. 
VSI is a high-speed screen management tool. You can create up to 255 


simultaneously active overlapping windows—large or small—for any 
: SE application program. Read to or write from any window and display them 
des plors Rae DP ope ene with borders and user declared priorities. VSI is callable from any com- 
BASTEST BAS 5128 


9-15-83 1: piled language and supports all color and monochrome video attributes. 
EST EXE 5126 11-87-83 


Ae mtd | EST LST 12832 11-87-83 93: ’ 
Oe) ee) EST MAP 4992 11-87-83 18: Cut Development Time 


SIU PERIGEE : VSI’s powerful primitives simplify your screen management chores 
gt sas pte ork with a complete library of functions. And you can preview and edit your 
A) em a LBB PALS screen layout before you actually program it. 


PROCUCT NAME: Inverted Tweaker 


But that’s only the beginning. 
PRICE: 62.58 REORDER POINT: 2008 Bice Lice Dice 
Use the up and down arrow[PRODUCT DESCRIPTION: Reverse wetaflange for | Our free hands-on demo disk will have you doing windows, too. 
iis lng eS vinatbihies Ramm banatinal Return the coupon with $4.50 for postage and handling. 
Press <ESC) to exit from this eenu. MasterCard or Visa accepted with phone orders only. 
Adisiget “Helett past wedbnc-rbd ah a dhe bapa ae fe VSI is used with IBM PC, XT and compatibles as well as TI 


Professional, and Wang PC. 


I develop software for 8086/8088 based machines and I want to do windows, too. 
I'm enclosing $4.50 for postage and handling. Please send me your free demo 
disk. My business card is attached. (Offer expires December 31, 1984) 








| | 
| COTA Se ee ei | 
AMBER SYSTEMS, INC. | ee | 
1171 S. Sunnyvale-Saratoga Road Weiser et okay ke EM te ne, Woh ye Wa hws 
San Jose CA 95129 | i lel 
(408) 996-1883 | Address | 
Spa a Atiber Syaeas Es ace a ae ate te onc oe cea ee 


Circle no. 3 on reader service card. 


Pp (Listing Continued, text begins on page 46) 
Listing One 


/* set output up for replacement */ 
Olp = ats 


/*® force white space around replacement */ 
if Colp >) oline && (€! isspaceColp[-1]))) 
SUE Ce es 


/*® if parametrized: collect arguments */ 
if (vp = index(s_name (sds 7’ ¢7)) 
markarg(#++vp) 5 
else 
parnno = O% 


/* amit replacement */ 
for (vp = s.val(s)i c = *#¥vp+ti 3) 
if €c & PARM) 
outarg(c & PARMNO)5 
else 
outed) s 
/* white space */ 
But. Cos 


+ 
markarg(n) /* mark and collect arguments */ 
int n3 /* number ta find */ 
{ char cs» cmodes /* emode during argument collection only */ 
int lIpars 
/* release parameter/argument lists if any */ 
while Cparms) 
pop (&parms) 5 
parmno = Q3 
PAE FEA CRS 
while Cisspace(tc = *1p)) 
++] p3 
/*®- CSellect. #7 
if Ge == 7 ¢*) 
{£ doa 
{ parms = pushw(parmss ++1p)3 
++ parmnos 
lpar = cmode = 03 
for. ( 3 oo =24ioet. +4152 
{ Switch Cc) ¢{ 
case *’(’5 
if C€cmode == 0) 
++ Ipars 
continues 
Case ’;’: 
if C€emode i: lpar) 
continues 
breaks 
case °)’: 
if Cemode tit lpar --) 
continues 
breaks 
case *’\’’: 
Switch Ccmode) ¢{ 
76 
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case O: 
cmode = CMchrs 
case CMstr: 
continues 
} 
cmode = O§ 
continues 
case *\"75& 
Switch Ccmode) ¢f{ 
case O: 
cmode = CMstrs 
case CMchr: 
continues 
} 
cmode = O§ 
continue’ 
case ’N\\’: 
if (#++]p == ’\O’) 


break$ 
default: 
continues 
} 
1p SS AO 
breaks 
} 
#¥owhile €c == 737)5 
if €c == 7)7) 
++1p3 
else 


whereC"incomplete macro call")3 


/* check and fill argument count */ 
if (parmno '= n) 

whereC"wrong number of arguments") 
for € 5 parnino ¢( ni ++parmno) 


parms = pushwtparmss "")3 
+ 
outarg(id /* emit argument */ 
int 2% /* number to emit */ 
< LIST #ps 
Char *cps cs 
/* play double safe */ 
if €i >) parmno) 
‘ where C"oputarg (>)3??7?")5 
eBxitdd)s 
} 
/* locate */ 
for ¢€1 = parmno-i>» p = parmass 1 && pi --is p = linext(p)) 
5 
if ¢p == NULL) 
{ where C"outarg CNULL)??")5 
exitc)s 
> 
/* emits no white space */ 
for (cp = l_word(p)$ c = *eps ++cp) 
outtcds 
+ 
/* 
* stack routines 


(Continued on next page) 
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fe (Listing Continued, text begins on page 46) 
Listing One 


%/ 
pushw(l:s w) /* push word: return —-) new list */ 
Gist wis /*® List #*/ 
int ws /* word to push */ 
{ List. #5 
if €€r = calloc(sz_WORD» 1)) == NULL) 
< whereC"no room") $§ 
@xitdds 
} 
lionext¢r) = 15 
l_.word¢(r) = wi 
return rs 
+ 
pushs (ls s) /* push strings return -—-)> new list */ 
LIST #135 W148: 8/7 
char *S3 /*® string to push */ 
{ List rs 
if €¢€r = calloc(sz_STR{(s)» 1)9) == NULL) 
{ where C"no room") 5 
exitdds 
} 
Lonext¢r) = 15 
strepyClostrcdrds g33 
return 3 
+ 
popcl) /* pop lists return word */ 
LIST #15 /* really ¥*#: list header */ 
< LIST rs 
PVG i 5 
if (#1 == NULL) 
{ where C"popt(NULL) ??")5 
exitd)s 
} 
r= #15 /* element to pop */ 
i = liword¢rds /# result ¥*/ 
r= linext¢rds /%* following element */ 
cfree(#1)35 
#1 = 5 
return i /* nonsense for a string list */ 
+ 
/* 
* Other utilities 
*/ 
where(vararg?) /* error message writer */ 
int varargi /* arbitrarily many strings */ 
{ int nargs *argvs 
narg = ~nargt)s 
argv = é&varargi 


argv += narg3 
if (Ffilenms) 


(Continued on page 80) 
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LEO ELECTRONICS, INC. 
2730 Monterey Street, Suite 111 
Torrance, California 90503 


(213) 212-6133 + (800) 421-9565 
Telex: 291 986 LEO UR 


~Small-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
Source Code included 
for Compiler & Library 


New 8086 optimizations QUALITY ! 
RICN I/O & Standard Library 
SERVICE! 








RAMS 


4116 (150ns) ‘1.35 ) | 
4116 (200ns) 1.25) 16K UPGRADE 


4164 (150ns) 4.95 ) 
4164 (200ns) 4.75 ) 64K UPGRADE 


6116P-3 4.40 
EPROMS 


2708 3.00 2050 4.50 
2716 3.20 2732 3.95 
T™MS2716 4.75 2764 7.00 


TERMS: Check, Visa, Mastercard. Call for C.O.D. 
U.S. Funds only. California residents add 6%% sales tax. 
SHIPPING: Add $2.00 for Ground and $5.00 for Air. 
ALL MAJOR MANUFACTURERS 
ALL PARTS 100% GUARANTEED 


Pricing subject to change without notice. 





-CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Break, Trace, and Change 
variables all on the 
source level 

Source code included 


Dataligh 


11557 8th Ave. N.E. 
Seattle, Washington 98125 


(206) 367-1803 


ASM or MASM is required with compiler. 

Include disk size (160k/320k), and DOS version with order. 

VISA & MasterCard accepted. Include card no. & expiration date. 
Washington State residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of International Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 


























Circle no. 24 on reader service card. 





























Circle no. 37 on reader service card. : 


Model 7128-L1,L2,.L2A . $ : 

DEVELOPMENT HARDWARE/SOFTWARE Model 7128.24 0°07 $339 100 

OREO cy OREBOGK 3 Seae 

HIGH PERFORMANCE/ COST RATIO é Cross eseiiiee Wig $200°00 

é yee (for cae? zat Boyt 
Pg raser Ps che x dae M 

INC. (60 1 ) 467-8048 BRS2o2 Caoles oon $ 30.00 


SS baGaptet oe es $174.00 


EPROM PROGRAMMER =e f iS Poul epic "8 98008 


















Compatible w/all Rs 232 serial interface port * Auto $879 stand alone fei 
select baud rate * With or without handshaking * MODEL 7956 foe Tp, 
Bidirectional Xon/Xoff and CTS/DTR supported * 4 ae j 


Read pin compatible ROMS * No personality $549 
modules * Intel, Motorola, MCS86, Hex formats * MODEL 
Split facility for 16 bit data paths * Read, program, 7228 


formatted list commands * Interrupt riven, 
program and verify real time while 
sending data * Program single byte, 
block, or whole EPROM * Intelligent 
diagnostics discern bad and erasable 












MODEL 7228 


EPROM * Verify erasure and compare MODEL 7936.00 wee * EPROM PROGRAMMER 
commands * Busy light * Complete GANG PROGRAMMER ge, A\l features of Model 7128 plus 
w/Textool zero insertion force socket Intelligent algorithm. Stand alone, “yi, Suto Select Baud — , super fast adaptive 
and integral 120 VAC power (240 copies eight EPROMS at a time. programming algorithms, low profile 


VAC/S0Hz available) With RS-232 option $1099. > aa manne aluminum enclosure. Programs 2764 
RNS SEERA HE ON I I A A UN SEE! £ : £ % in one minute! 


DR Utility Package allows communica- 
tion with 7128, 7228, and 7956 $549 
programmers from the CP/M com- MODEL 
mand line. Source Code is provided. 71316 
PGX utility package allows the same 

thing, but will also allow you to specify 
a range of addresses to send to the 
programmer, Verify, set the Eprom 


type. 


MODEL 7316 PAL PROGRAMMER ;% 
Programs all series 20 PALS. Software § 
aot for compiling PAL source 
codes. ii 


2 
Software Available for cpm! ISIS, 


3 4 Avocet Cross Assemblers are 
TRSDOS, MSDOS. available to handle 8748, 8751. 


$429 
MODEL 
7128 








MODEL 7128 EPROM PROGRAMMER 
Programs and Read: 


1. TM of Digital Research Corp. a pO ete NMOS NMOS CMOS EEPROM MPU’S 
2. TM of Intel Corp. MSDOS computers. Order by 516 3716 57€32-«5213H 8748H 
3. TM of Tandy Corp. ea type and specify 3532 3732 C6716. X2816 8749H 
oe {Fet Ot Mictosot: eee 2564  2732A +«27C54 «= 48016 8741 
Model DE-4 U/V Products MODEL 7324 PAL PROGRAMMER 68766 2764 12816A 

Post Office Box 289 hold 8. 28 pin parts. High Programs all series 20 & 24 PALS. 68764 27128 8741H 

Waveland, Mississippi 39576 quality professional construc- Operates stand alone or via RS232. 8755 27256 8751 
[601]-467-8048 tion. §133 
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S (Listing Continued, text begins on page 46) 
Listing One 


} 


kind¢plp) 


} 


cmdtls 


> 


markflcsp) 


80 


oJ /* 


Char *sp35 /%* —) 


{ Fputs(Cl_strtéfilenms): stderr)s 

if (lineno>d 

Foputs¢"s “5s stderrd)3 
else 

Fputs¢": “,s stderr)s 

Z 

if Clineno) 

* Fputs("Lline "“» stderr) 
FputsCitod(lineno),s stderr); 
Fputs(¢": "»y stderr) 

} 

while €narg) 

{ Fputs(*--argvs stderr) $ 
if C= $"a Fo) 

Fpute(” *,; stderr)3 

} 


fputet’? \n’?s stderr) 


/* determine command */ 


/* move line pointer past it and white space */ 


int *plp3 /* char#*#s —) 


Char ¥*S5 


for (S = linetls isspace(#s5)5 ++5) 
5 

if (*plp = emd(s;s “define")) return 
if (*plp = emd(s;s “else")) return 
if €*plp = ecmd(s» “endif")) return 
if (¥plp = emd(ss “ifdef")) return 
if €*plp = ecmd(s;s “ifndef")) return 
if (#plp = cmd(ss “include")) return 
if (#plp = emd(s:; “Line")) return 
if (*plp = emd(s:s “undef")) return 


return DEFAULTS /* #plp iss NULL */ 


parse keyword */ 


line pointers 


NULLed or advanced */ 


DEFINES 
ELSE 5 
ENDIF s 
IFDEF s$ 
IFNDEF $ 
INCLUDE: 
LINES 
UNDEF $§ 


/* return NULL or -)> past it and white space */ 


char *15 PF 
char *c3 /* -) keyword */ 
/* campare */ 

while C#1++ 


3 


*#c++ && *c) 


begin of possible keyword */ 


LE (#E39 

return O03 /* incomplete keyword */ 
if (#1 == 70’) 

retirn 15 7/* just keyword */ 
if ¢! isspace(*l1)) 


return O35 /* 
While Cisspace(*++1}) 

: 
return 13 /* 


keyword plus trash */ 


bypassed white space */ 


/* Bypass and terminate file name */ 


/* return true if found */ 


begin delimeter,s 
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; i 
q : f 
) 4 
‘ / f i ae 


{ Oar neo RD oO § 


if ¢(s = *€cp = spd> && (Ss == 
while (c = #++4cp) 


if te 


r\") bt gs =e 


7\"? @& 5 == 

i} c == 7)” 8&8 
{ ¥cp "\O’ 5 
return cp-sp >) 


GS <= 


return O35 


Listing Two 


£UEN HH 
JEW 96 HG 
HUM S 


UNe®* campatible dynamic. memory allocation 


a ata 
to vector MULL. 


allocated 


return 
free 


ceotLtec 
M% crree 


pointer 
previously 


ar Oy 
CLEC 


Ot 


i The heap starts at 
% Eccl corect 
M: ad pointer 
os The low 
I There 


toward the 


at 


anid runs 
prececdec 


_ ene 
in the heap 
Chicory nus 
bit in each 
ig c blind, 


Uupweercl 
1 
from 
ward 16 | 
allocated 


by a word coy) 
if the following area 
element at the front of 
¥ BUG: unreaneaondable 


corrupt 


very 
Fa ie es 


clemeicds C@ ada y 
MeMOry o 


wreaparauyric 2 


SLACK LOR +, 
NULL. 0 


wrdeFine f 


rilef ine 


at least IRR stack to he free «/ 


word Cwp) 
ink wwps 


reckurr #wps 


ent 


cher * catloc(1,.ten) 
LW neg i % 
int lens fv 
{ inmt..cects /f%® 
Crt ps 
CMa ibs 
ht +p, 


number of elements */ 
Length of element ¥*/ 
current allocation chain 
JR AI ee ae 

/* pointer in cell 
/*. £6r casting #7 


cell #7 

4S 

ews 

({lLentn + 1) & 

flen > 

return 
[3 sant 


Len 
if 


ag /% even #/ 


eee ever 
eave seve 


NULL g 
wordt end+ti & 
FO) ee ES 


FOr <e to 
np = Ceell = 
ip = p = np) 

LF > SERA Se FA 
¢ 


{ 


Ses Ere oe 


<3 


3 *% Lowbit ss 1 
nF pep ed oe ee 

wp = pot Lentiy 

ewp = cells 


Mec yy ts 


. 
” 


“*h 


en mee 
vot 
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eVEN 
end through these words toa NULL: 
1 


thie 


End Listing One 


aback. 


address 3 


free, 
Chain. 


free #/ 


(Continued on next page) 


81 


- (Listing Continued, text begins on page 46) 
Listing Two 


¥ip = wp 
5 
elee if Cn > Lend 
ei p = npsy 
else 
cantinues 
for (ap = p+23 tens len’ <= i290 
Mapes Oy 
return pte} 


ce A ae Oe oh ena 2 ain” = - SLACK? 
return NULL 

wip = wpe 

%wp = NULL 

far Cw = pres: lens. Cen -2 2) 
¥w pet = Os 

return pees 


Seen? 


cFfreetfp) 
int *fos /* to be freed ¥*/ 
{ PAE Spy oe Ss 


it fp; FEOOTO ME BUL RY 
TOT heh Send tl. ow. 7s 
We wordtosy & Ls 
p = ype fs. O-> previous cell. £7 
fo Cnp =e fp) f/f p>? Cell “tol pee. er 
np = #F py 2% Nps FeLi Cel. we 
pe CURED cee 2 par A = Peek? 
breaks /% he does not awn it #7 
oe eas Dy 
1 Se he dd 
Se j:3 a OMY} Q ’ 
else Gf O@np == NULL 
Mp os NULL 
else 
{ ep =F yp 
¥p f= J 
; 
else if ¢*np & 1) 
YF = erp sy 
else if C¢np == NULL? 
w’Pp = NUL 
else 
uf [3 Peery ~ 
returns 
Furts <> 
Sx GA Ts 


} End Listings 


cfree botch”, stderr? ; 
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THE FULL-FEATURED KEYBOARD EXPANDER 
for all 8080-8085-Z8O computers using CP/M 2.2 


MagiKey™ will redefine your keys as character strings ... and transform single 
keystrokes into commands for programs, words for word processors, data for data 
bases, and messages for modems. Without hardware or system modifications. 


MagiKey™ has more advanced features than any other CP/M keyboard ex- 
pander. For example: 


*x Redefine a key to send the string: 
“Run WordStar and edit form letter number 17” 
Hit the key. YOU will see the string, but “WS FRMLTR17” will be sent to CP/M. 
MagiKey™'’s CONSOLE REDIRECTION can display messages which are invisible 


For only $95, Q/C is a ready-to-use C compiler for CP/M. You get 
complete source code for the compiler and over 75 library functions. 


Q/C is upward compatible with UNIX Version 7 C, but doesn’t sup- 
port long integers, float, parameterized #defines, and bit fields. 


e Full source code for compiler and library. 

@ No license fees for object code. 

e Z80 version takes advantage of Z80 instructions. 

e Excellent support for assembly language and ROMs. 

e Q/C is standard. Good portability to UNIX. 
Version 3.2 of Q/C has many new features: structure initialization, 
faster runtime routines, faster compilation, and improved ROM sup- 
port. Yes, Q/C has casts, typedef, sizeof, and function typing. The 
Q/C User’s Manual is available for $20 (applies toward purchase). 
VISA and MasterCard welcome. 


fo programs and CP/M ... very useful for recalling key assignments, custom 
operator prompts, and making CP/M friendlier. 


x Redefine a key to run several programs in sequence. Each program can wait 
for keyboard input or receive pre-defined commands and data. MagiKey™’s 
built-in BATCH PROCESSING doesn't use CP/M’s SUBMIT, and handles programs 
that CP/M’s XSUB can't. 


x Redefine a key to display the prompt: 
“Execute SuperCalc using the spreadsheet file: 
Press the key to display the prompt. Type the file name, hit RETURN, and you're 
into SuperCalc. When done, a single keystroke saves your updated spreadsheet. 
You don't have to remember or retype its name. MagiKey™’s RECURSIVE key 
redefinition mode automatically does it for you. 


WE INVITE COMPARISON 


ee. (PRO! 
Y%,” formats € 
dd 6% tax in CA microSystems 
cademtxinca A INAS y 


Pea acca ri 16609 Sagewood Lane 
Rta Poway, California 92064 
WordStar (tm) Micropro (619) 693-1022 


5266 Hollister 

Suite 224 

Santa Barbara, CA 93111 
(805) 683-1585 


Q/C, CP/M, Z80, and UNIX are trademarks of Quality Computer Systems, Digital 
Research, Zilog, Inc., and Bell Laboratories respectively. 
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Six Times Faster! 


Super Fast Z80 Assembly Language Development Package 
Z80ASM SLRNK 




















































e Complete Zilog ® Conditional assembly @ Links any combination © COM may start at 
Mnemonic set e Assemble code for of SLR format and other than 100H 

e Full Macro facility execution at another Microsoft format REL e HEX files do not fill 

® Plain English error address (PHASE & files empty address space. 
messages DEPHASE) e One or two pass e Generate inter-module 

© One or two pass e Generates COM, HEX, operation allows output cross-reference and 
operation or REL files files up to 64K load map 

© Over 6000 lines/minute ® COM files may start at * Generates HEX or COM Save symbol table to 

© Supports nested other than 100H files disk in REL format for 
INCLUDE files ® REL files may be in e User may specify PROG, use in overlay 

e Allows external bytes, Microsoft format or DATA, and COMMON generation 
words, and expressions SLR format loading addresses © Declare entry points 
(EXT1 * EXT2) e Separate PROG, DATA from console 











Peis & COMMON address ® The FASTEST Micro- 
® Labels significant to 16 spaces be Vee “ a tC tible Li 
characters even on he OY a] soft Compatible Linker 
externals (SLR Format ° Accepts symbol defini- tT} Ba ek [pa available 
Only) tions from the console a ) A al 0 7 


Flexible listing facilit 
® Integral cross-reference °'! g y 
~~ includes TIME and 


DATE in listing (CP/M 
Plus Only) 


e Upper/lower case 


optionally significant e Complete Package Includes: Z80ASM, SLRNK, SLRIB 


- Librarian and Manual for just $199.99. Manual only, $30. 
@ Most formats available for Z80 CP/M, CDOS, & TURBODOS 
© Terms: add $3 shipping US, others $7. PA add 6% sales tax 


L R_Systems 
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For more information or to order, call: 


1-800-833-3061 


In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 











A simple Minimax Algorithm 


omputers frequently use poly- 

nomial or rational approxima- 

tions for transcendental func- 
tions,, and. yet... thes stypical 
programmer’s involvement with these 
approximations is limited simply to 
looking up the appropriate parameters 
of the approximation in a handbook. 
Have you ever wondered where these 
approximations came from? Is it easy 
for programmers with some experience 
in numerical analysis to invent their 
Own approximations? Suppose you 
need an approximation that is unavail- 
able in the literature — what do you 
do? 

Possibly these questions have never 
crossed your mind because you just as- 
sumed that these approximations rep- 
resent a simple Least Squares (LS) fit. 
Pll tell you right now, these approxi- 
mations are not a LS fit. Usually they 
represent a Minimum Maximum Ab- 
solute Error (Minimax) fit; that is, 
rather than determining the approxi- 
mation parameters so that the mean- 
squared error or error variance is a 
minimum over the interval of approxi- 
mation, the parameters were deter- 
mined so that the largest absolute val- 
ue of the errors encountered over the 
interval of approximation is a mini- 
mum. In other words, the worst error 
has been minimized. 

Synonyms for Minimax approxima- 
tion include “Chebyshev approxima- 
tion” and “&,, approximation.’ Some- 
times, particularly in statistical works, 
you will see the word “estimate”? in 
place of “approximation.” Both LS 
and Minimax belong to a larger class 
of approximations that minimize a 
norm of errors, the particular type of 
norm defining the type of approxima- 
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tion. Of all the approximations in this 
class, LS is by far the most popular, 
most easily calculated, and most 
discussed. 

Because many LS principles carry 
over to the case of Minimax, this arti- 
cle assumes that the reader has some 
hands-on experience with LS curve fit- 
ting. If you have no such experience 
and are still interested in Minimax, I 
suggest that you first acquire some, 
starting with the vast body of literature 
on LS. 

The reason for choosing Minimax 
criterion over others such as LS should 
be obvious. We want to guarantee that 
the errors associated with an approxi- 
mation fall within specified limits and 
to make these limits as small as possi- 
ble without increasing the amount of 
time and memory used in calculation. 
An approximation has two sources of 
calculation parsimony. First is the 
form of the approximation. Different 
forms include odd polynomials, even 
polynomials, rational functions (quo- 
tients of polynomials), and so on. That 
the selection of form is an art and not a 
science makes such selection very in- 
teresting, but unfortunately that is 
outside the scope of this article. The 
second source of parsimony is the type 
of fit that the approximation uses. For 
a given form of approximation, the 
Minimax fit is always the most 
parsimonious. 

In spite of the fact that Minimax ap- 
proximations are fundamental to com- 
puterdom, the techniques for Minimax 
curve fitting are esoteric, probably be- 
cause traditional methods are some- 
what complicated, often not automat- 
ic, and therefore difficult to implement 
as computer programs. Using conven- 
tional techniques, programmers would 
find it difficult to invent their own ap- 
proximations. I refer those of you 
wishing to find out more about these 
techniques to the work of Hastings,! 
Scheid,? and Dem’yanov and Maloze- 
mov.’ The latter provides a rigorous 


mathematical treatment of the subject 
and outlines a large number of Mini- 
max algorithms, which, unfortunately, 
are far removed from the cookbook 
style that programmers are likely to 
appreciate. Scheid walks his readers © 
through two of the most popular algo- 
rithms, the Exchange Method and a 
method involving Simplex linear pro- 
gramming, with numerous pencil and 
paper examples — I highly recom- 
mend it. Hastings is the best text for 
learning the artistic aspects of curve 
fitting, such as form selection. 

To the best of my knowledge, how- 
ever, this article represents the first 
publication of actual programs for 
Minimax curve fitting. I propose to in- 
troduce an original Minimax algo- 
rithm that offers the advantages of 
simplicity and accuracy over conven- 
tional methods. 

With respect to simplicity, this algo-. 
rithm should result in a minimum of 
program source code. Some conven- 
tional methods, such as the Exchange 
Method, look deceptively simple until 
you actually try programming them; 
the Exchange Method involves data 
transfers between matrices that are 
quite messy to program. I challenge 
anyone to program a conventional 
Minimax algorithm (with the same de- 
gree of functionality) in less than twice 
the source code of the BASIC program 
of Listing One (page 98). 

In using any Minimax algorithm, as 
you seek higher and higher order ap- 
proximations, you eventually reach an 
order where the algorithm fails due to 
an accumulation of roundoff errors. 
My algorithm should identify approxi- 
mations of a higher order (i.e., with 
more parameters) than any other algo- 
rithm using the same precision arith- 
metic. I have three reasons for believ- 
ing this: 

(1) This algorithm involves the solu- 
tion of linear equations of order n, 
whereas other algorithms involve solu- 
tions of higher order equations; in the 
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case of the Exchange Method, this or- 
der is n + 1 (n is the order of the 
approximation). 
(2) This algorithm solves these linear 
equations via the Sequential Least 
Squares algorithm (described later), 
which is relatively immune to ill-condi- 
tioned systems of equations. 
(3) To a limited extent, each iteration 
within the algorithm is compensatory 
toward roundoff errors incurred from 
previous iterations, while other algo- 
rithms, although iterative, do not have 
this compensatory effect. 

I would be surprised if you can find 
a Minimax algorithm that will identify 
higher order approximations than 
those of the Forth Matrix Language 
(FML) program of Listing Two (page 
99) using double-precision (64-bit) 
floating point arithmetic. Figures 4—21 
(pages 93-97) show the results of the 
FML program. 


Conventions 

Before getting into matrix equations, I 
should define some conventions. Low- 
er-case letters without underscores 
represent scalar variables. Lower-case 
letters with underscores represent col- 
umn vectors. Upper-case letters repre- 
sent matrices other than vectors. The 
superscript T indicates matrix trans- 
pose. The caret (*) over a variable in- 
dicates that it is an approximation or 
estimate of the variable with the corre- 
sponding symbol. The “order” of an 
approximation is the total number of 
parameters to be identified, whereas 
the “degree” of a polynomial is the 
highest power contained in that poly- 
nomial: thus, y = a; x! is a polynomial 
of degree 10 and order 1. 


The Error-Fluffing Algorithm 
The use of this algorithm is not limited 
to curve fitting but is applicable to any 
system that is linear in its parameters. 
Consider the most general case: 


OKs Fy aKa 8 POLK Te (1) 
or in matrix notation y=alx+e 
where 
“4 a 
#2 x3 
a=|a,], X=] x3], and e=Error 
dy, Xy 
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which we wish to approximate with 


+a_x (2) 


A 
¥ = 41X) $a5X_ "+ FaQXy, 


or 
/\ 
y =a'x 


I anticipate that some people famil- 
iar only with the statistical application 
of LS regression may become confused 
at this point. Although the error, e, in 
Equation (1) can be stochastic, in all of 
the examples used here the error, e, 
will be completely deterministic. The 
Minimax algorithm uses LS algo- 
rithms, which are derived in the Ap- 
pendix, without any assumption of the 
stochasticity or determinability of e. 

Given a set of m data points: 


{(%;05) fon m2 rH, 


this algorithm iteratively determines a 
second set of k data points: 


{(xiV) fe k 2m, 


and coefficients a , such that a repre- 
sents an LS fit to the second set of 
points and a Minimax fit to the first set 
of points. In the algorithm’s simplest 


— {(x,-v,)f. 


is a Superset of mle 
containing only multiple replications 
of the points in { (595) bn 
A good way to conceptualize this is to 
consider the first set of points as being 
locations (x,y) space and the second set 
as having points at those locations, 
with many of the locations having mul- 
tiple points from the second set. 
The procedure, simplified to facili- 
tate understanding, is: 
Let k = iteration index, and 
(1) Use an LS fit as the initial estimate 
ofa,. 
(2) Find the maximum absolute error 
resulting from 4, . 
(3) Reincorporate the point at which 
the maximum absolute error occurs 
back into the data set. 
(4) Perform LS regression on the new 
data set. 
(5) Repeat, starting at Step 2, until no 
further decrease in maximum absolute 
error seems likely with further itera- 
tion (convergence is nonmonotone). 
Since a rigorous mathematical con- 
vergence proof of this algorithm is 
presently unknown, I cannot guarantee 
that it will always work. However, ex- 
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cept for failures due to roundoff errors, 
I have yet to encounter a single case 
where this algorithm didn’t work! In a 
practical sense, this Minimax algo- 
rithm is more foolproof than LS algo- 
rithms because we can easily check to 
see if the results are truly Minimax. 
The error curve (i.e., e versus x) of a 
Minimax fit will contain at least n + 1 
minima and maxima that are equal in 
absolute value; that is, at least n + 1 
equal worst errors will appear. Re- 
member, n is the number of estimated 
parameters and not necessarily the de- 
gree of a polynomial. In almost all 
cases of practical interest, the error 
curve will have exactly n + 1 equal 
and unique minima and maxima; un- 
der this condition, we can be reason- 
ably certain that the fit is Minimax. By 
contrast, LS algorithms, which have a 
firm mathematical foundation, fre- 
quently generate erroneous results (be- 
cause of roundoff errors) that go unde- 
tected — there is no easy way to check 
a LS result. 

Although I lack a convergence proof 
of the Minimax algorithm, you should 
be able to understand at an intuitive 
level how the algorithm works. Repli- 
cating the data point at which the 
maximum absolute error occurs gives 
increased weight to the location of that 
point; that is, to minimize the error: 
variance with respect to the new set of 
points, the error at that location will be 
reduced while increasing elsewhere. As 
this process repeats, the maximum ab- 
solute error eventually appears at a 
new location. This new location re- 
ceives the same treatment, but now 
previously weighted locations will re- 
sist error increases. Because this con- 
strains the maximum absolute error, it 
will nonmonotonically approach a 
minimum. Incidentally, it is this non- 
monotone nature of the algorithm that 
makes a mathematical convergence 
proof difficult. 

It is very interesting to watch the 
change in the error curve with each it- 
eration. Because the process resembles 
fluffing the bulges out of a pillow, I use 
the term “error fluffing” to describe 
this algorithm. 


The SLS Algorithm 

You should have noticed two impracti- 
cal aspects to the five-step simplified 
procedure. First, with every iteration, 





Step 3 adds one point to the data set. 
Since thousands of iterations may be 
required, this growing set of data 
points could easily exceed the memory 
capacity of even the largest main- 
frame! Second, in Step 4, performing 
LS regression on even a moderately 
large set of points is very time- 
consuming. 

Fortunately, we can combine Steps 
3 and 4 so that the set {(x;,V;) fe 


exists only as a mathematical abstrac- 
tion without occupying any RAM; re- 
member, we are only interested in get- 
ting 4, , the coefficients corresponding 
to an LS fit to {(x, y,)} 

Sari" yk 


The method for doing this, which is 
also very fast, is called the Sequential 
Least Squares (SLS) algorithm. In- 
deed, without the SLS algorithm, this 
Minimax algorithm would be of no 
practical value. Using the SLS algo- 
rithm, the time per iteration for this 
Minimax algorithm is significantly 
less than that of other iterative algo- 
rithms such as the Exchange Method. 
Thus, even though such algorithms 
may converge in less iterations, my al- 
gorithm may be as fast! 

I would like to digress a moment and 
say that the SLS algorithm is the most 
wasted mathematical resource I know. 
Outside of the electrical engineering 
community, this algorithm is almost 
unknown. For example, of the numer- 
ous statistical software packages on 
the market, to the best of my knowl- 
edge none uses the SLS algorithm. The 
SLS algorithm, which resembles a Kal- 
man filter, was once used for real-time 
analysis of time series (e.g., in speech 
recognition), but recently the faster 
“lattice” or “ladder” algorithms have 
replaced it. Use of these newer algo- 
rithms, however, is limited to identify- 
ing ARMA (AutoRegressive-Moving 
Average) parameters for time series, 
whereas the SLS algorithm is applica- 
ble to all forms of linear regression. 

The SLS algorithm is also particu- 
larly well suited for a large variety of 
microcomputer applications because it 
conserves memory and is, without any 
doubt, the easiest LS algorithm to pro- 
gram. The SLS algorithm avoids ma- 
trix inversion and involves little more 
than matrix multiplication and addi- 
tion. By letting m = n, you can even 
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use the SLS algorithm in place of such 
algorithms as the Gaussian Elimina- 
tion to solve n linear equations in n un- 
knowns or to invert a matrix! I have 
included a complete description and 
derivation of the SLS algorithm in the 
Appendix. For further information on 
LS algorithms and their applications 
to time series analysis, see the two 
books by Graupe.*> 


implementation 

The two implementations of the Mini- 
max algorithm include one in BASIC 
(Listing One) and another in Polyforth 
with FML (Listing Two). FML is an 
APL-like extension to Forth developed 
by this author, which, when used with 
the 8087, I believe to be the fastest nu- 
merical language available for micro- 
computers. Version 1.0 of FML is in 
the public domain and can be found in 
Nos. 80, 81, and 82 of Dr. Dobb’s 
Journal. The illustrative program pre- 
sented here is written in the commer- 
cially available version 3.0. Besides 
speed, the main advantage of FML is 
that it performs matrix operations with 
syntactically simple statements, thus 
facilitating quick and convenient “on 
the fly’? programming of complex 
mathematical algorithms; for exam- 
ple, LS regression is performed by a 
single word in version 3.0. FML also 
allows arrays of up to 256Kbytes, thus 
allowing storage of huge data sets. 

Such being the case, some drastic 
differences exist between the FML and 
BASIC implementations. Because the 
BASIC program represents the algo- 
rithm in its simplest possible form, it 
will not be able to duplicate the perfor- 
mance of the FML program in regard 
to either speed or accuracy. The BA- 
SIC program is described in the com- 
ment fields, and major differences be- 
tween the BASIC and FML programs 
are mentioned in the text describing 
the FML program. If anyone is inter- 
ested in the nitty-gritty details of how 
the BASIC program works, I suggest 
that you first study the FML program 
description, then the SLS section of the 
Appendix, and last the comment field 
of the BASIC program. 

The BASIC program employs an ex- 
ample used by both Hastings! (page 
138) and Ruckdeschel® (page 522). 
Here Equation (1) takes the form: 

¥ e'a,x + a,x? + a,x? he 


where 

y = SIN(PI*X/2) 
However, in this particular instance, a 
is determined to a Minimum Maxi- 
mum Absolute Relative Error criteri- 
on. Dividing both sides of the above 
equation by y: 


(1) =a, (x/y) +a,(x3/y) +a5(x?/y) + (e/y) 


and redefining y, x, and e to be the 
bracketed quantities puts Equation (1) 
in a form so that a will be determined 
in a way to minimize the relative error, 
(e/y). The coefficients resulting from 
this program are a; = 1.5706258, a 
= -0.6432224, and a3; = 0.0727045; 
the resulting maximum absolute rela- 
tive error is 0.00010856. Hastings’ re- 
Sult 45) /ay. 01.5 7106268, as. = 
-0.6432292, and a; = 0.0727102, with 
a maximum absolute relative error of 
0.00010879. 

Figure 1 (page 92) shows the error 
curve for a Minimax fit, whereas Fig- 
ure 2 (page 92) shows the curve for an 
LS fit. The similarities and differences 
between these two error curves are typ- 
ical of LS and Minimax fits in general. 
Notice that the worst error of the LS 
fit occurs near the range ends and that 
the worst error of the Minimax fit is 
55% smaller. Ruckdeschel attempted a 
Minimax fit using a very general opti- 
mization by steepest descent algo- 
rithm; Figure 3 (page 92) shows the 
resulting error curve. Clearly, his fit is 
not Minimax, thereby demonstrating 
the inadequacy of gradient algorithms 
for this purpose. 

You can easily modify the BASIC 
program to find other approximations. 
For example, setting N = 4 in line 
140 will result in a fourth order 
approximation. 


The FML Implementation 

Screen 207 contains the final FML pro- 
gram, formatted as a list of steps. I do 
not expect you to be able to read FML. 
A detailed description of the steps fol- 
lows, so that no one should have much 
difficulty in implementing the algo- 
rithm in the language of their choice. 


Insert Data 
First, the set of sample points 


{ix,v,)} , 
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is entered into matrices and X as 


follows: 


Aa Ray Mio 43° °" Nay 
Xo Xo; X90 X93 °° “Kon 
and X=] x} 


X31 X30 X33 °° * X3n 


rh ee 
Xm Xmi*m2*m3 Xmn 


You should realize that the Minimax 
algorithm is applicable only to a finite 
number of points and not to the actual 
function, which is continuous. Because 
of this, we must hope that the resulting 
approximation will accurately interpo- 
late between the sample points of the 
function being approximated. Gener- 
ally, inspection of the error curve and 
the use of common sense are all that is 
needed to verify that the number of 
points, m, is sufficient. 

As a rule, approximations with larg- 
er numbers of parameters will also re- 
quire more points because the peaks 
and valleys in the error curve will be 
sharper and therefore more likely to 
protrude between sample points. If 
these peaks and valleys are crowded 
(hence, more acute at one or both ends 
of the interval of approximation), you 
then can select samples of x that are 
crowded at the ends. Note that in this 
respect Minimax is totally different 
from LS. To achieve an LS approxi- 
mation to a continuous function, you 
generally must select points at equal 
intervals of x. 


Batch Least Squares 
Next, the LS coefficients, a,, are 
calculated: 


Q=(X! xy} (3) 
ao=Q(xTy) — (4) 


Q, an n x n matrix, is called the ‘“‘in- 
verse covariance matrix.” The paren- 
theses in Equation (4) indicate the pre- 
ferred order of calculation. Actually, 
you can substitute almost any LS algo- 
rithm, including those that do not use 
matrix inversion, for Equation (4), but 
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it is necessary to calculate Q, Equation 
(3), because Q will be used later. (The 
BASIC program uses the SLS algo- 
rithm in place of Equations (3) and 
(4). Using SLS from a cold start intro- 
duces an error into the calculations, as 
explained in the Appendix.) 


Reduce Roundoff Error 

Large roundoff errors often result 
from LS algorithms such as those of 
Equations (3) and (4). Ruckdeschel 
describes a method to reduce these er- 
rors. First, the error vector, e, is 
calculated: 





If we redesignate the old coefficient 
vector as, a’, the improved estimate, 
is: 

a=a’ + Q(XTe) (6) 


Equations (5) and (6) should be re- 
peated iteratively, and the best a (i.e., 
the a corresponding to the smallest 
variance) saved. Equation (6) is tanta- 
mount to LS regression on the error,e, 
adding the resulting coefficients to a. 
Again, you can substitute almost any 
other LS algorithm in this step. (The 
BASIC program skips this step.) 


Normalize Q 

The Q matrix is used in succeeding cal- 
culations. Although the Minimax al- 
gorithm will work with Q as is, increas- 
ing the values in Q by a constant factor 
will hasten convergence considerably. 
Beyond a certain limit, however, con- 
vergence may be lost completely. I 
found a good scaling factor to be m/ 
10n. If we redesignate the old matrix 
as Q’, the new matrix will be: 


OQ = (m/10n)Q’ 


(The BASIC program skips this step. ) 

The following operations are reiter- 
ated, k being the iteration index; ulti- 
mately, a, will converge to a Minimax 
fit. 


Find MAX (e), xk; Record Best a, ek 
First, Equation (5) is used to calculate 
e,then the maximum absolute error, 
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le,|.is found, and e, and the corre- 
sponding x, from the matrix X are re- 


ed by Equations (3), (4), and (6): 


Qh Xi X,~ Ay} 


corded for future use. Since conver- | 0, =Q,, —- ——————— (8a) 
m Be a EGY ena 

gence is nonmonotone, the best |e, Sk k-1 Sk 

among all iterations to this point in 
F ay = ayy FOL xX, (VE — Xf ayy) (8b) 


time and the corresponding 4, 
should be recorded. After iteration is 
terminated, this best 4, is used as 
the final result. 


Sequential Least Squares 

As previously mentioned, the SLS al- 
gorithm is the key to making this Mini- 
max algorithm practical. The SLS al- 
gorithm adds a data point by updating 
the Q matrix and a, without updating 
X and y . Thus, X and y do not grow 
in dimension, and we can avoid the 
time-consuming operations represent- 


or: a, = ayy +O, x, ey 


Notice that only in the context of 
Minimax do ( X.Y, ), and &x repre- 
sent the data point and error corre- 
sponding to le,| the maximum ab- 
solute error that results from 4,- 


Speedup 

The SLS algorithm is fast and contrib- 
utes negligible time to the Minimax al- 
gorithm. The bottleneck here is in the 
calculation of e with each iteration. 














PERCENT PERCENT 
IMPROVEMENT IMPROVEMENT 
NUMBER MAXIMUM OVER OVER 
OF ABSOLUTE HASTINGS’ LEAST 
FUNCTION FIGURE PARAMETERS ERROR RESULT SQUARES 











132204607 0.8 56 
Tilak lo 62 


LOG io (X) 4 9 

















3./5120E-038 0.7 63 
2201146 . 42 











nr 1 2 1.08179 E-04* 0.6. 55 

SIN ( =x 
2 8 5 5 31748 E-09* 09 62 
6.28159 E-14* 66 








4.96196 E-09* 
1 18194E-13* 


0.9 























2.21756 E-04 
2.32245 E-09 


2.18036 E-08 
1.60434 E-12 






LN(1 +X) 16 8 
12 13 


3.21271 E-08 0.3 52 
29900GE-12 61 


2.42142 E-O7 
3.42650 E-13 


2.909522 6-07 
1.41491 E-12 


*RELATIVE ERROR 






Table 
Comparison of Minimax Results with that of Hastings and LS 


After a certain number of iterations, 
however, we may use the fact that the 
maximum absolute errors now appear 
at only a small subset of the original 
sample points to hasten the process. 
The method used here consists of sort- 
ing the rows of y and X with respect to 
a descending order of absolute values 
of the elements of © then halving the 
dimensions, m, of, y,e, and X by trun- 
cation. (The BASIC program skips this 
step. ) 


The Results 

Now that we’ve finished describing the 
Minimax algorithm in FML, let’s look 
at some results. Figures 4-21 show the 
parameters and resulting error curves 
of approximations to nine different 
functions. All of these approximations 
were found with the FML program. 
The even-numbered figures duplicate 
(with greater accuracy) the highest or- 
der results of Hastings for the indicat- 
ed functions. The odd-numbered fig- 
ures represent the highest order fits 
that I was able to achieve for those 
same functions. In many instances, the 
program identified more than twice 
Hastings’ number of parameters. The 
table (at left) compares the accuracy 
of various approximations. 

You should notice that the approxi- 
mations given in Figures 10, 11, 12, 13, 
18, 19, 20, and 21 are not linear in 
their parameters. How, then, did I 
manage to use my algorithm on them? 
There are a number of tricks for adapt- 
ing linear algorithms to nonlinear situ- 
ations. In the above cases, a simple 
transformation changes these approxi- 
mations into the form of Equation (1) 
so that the algorithm can be success- 
fully applied. As a contest, a free one- 
year subscription to Dr. Dobb’s will be 
awarded to the first person to correctly 
describe this transformation. 

Now to answer the question: ““How 
fast is this Minimax algorithm?” A 
suitable reference for comparison is 
the time taken by a Batch LS algo- 
rithm to fit the same data. For a case 
with n = 12 and m = 320, the Batch 
LS portion of the FML program takes 
2.37 sec, whereas each iteration of the 
loop of the Minimax algorithm takes 
0.53 sec. (before SPEEDUP). As previ- 
ously mentioned, the time contribution 
of the SLS algorithm, 0.08 sec per iter- 
ation, is negligible. The calculation of 
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the e vector accounts for most of the 
0.53 seconds. 

Initial convergence is rapid, so that 
only 200-500 iterations may be re- 
quired to achieve the accuracy ob- 
tained by Hastings. However, maxi- 
mum accuracy is achieved at about 
40,000 iterations; with double preci- 
sion, roundoff errors prevent gains in 
accuracy with further iteration. 

In summary, the Minimax algo- 
rithm presented here is simple enough 
for those interested in numerical anal- 
ysis to use on a casual basis. With this 
algorithm and double-precision arith- 
metic, programmers can find Minimax 
approximations that are both of a 
higher order and more accurate than 
those published in the literature. Fur- 
thermore, the use of this algorithm is 
not limited to deterministic systems. 

It may be interesting to explore the 
use of Minimax in statistics. Typically, 
LS is used because, for systems in 
which the error is random and normal- 
ly distributed, LS either is or closely 
approximates a maximum likelihood 
estimator of the parameters. For cer- 
tain systems where the error has a sta- 
tistical distribution that is bounded, 


~ however, Minimax may be more statis- 


tically efficient. 
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Appendix: 
Derivation of Least Squares 
Algorithms 


Much of the material that follows is 
based on the literature. Readers may 
consult the references accompanying 
this article as a starting place for addi- 
tional material on the subject. I use no- 
menclature from the text. 


Batch Least Squares 

Let MSE=Sample Mean Squared Error 

then MSE = 1k 3 €? 

or MSE =1/k (ete) 

Let tr =trace operator =sum of 
diagonal elements of a 
square matrix. 

since e'e = tr(ee!) 

and: e=y-— Xa 

then MSE =1/k tr[(y — Xa) (y — Xa)"] 

MSE = 1/k tr[(y — Xa)(y'—a'x!)] 


MSE = 1/k tr[yy’ + Xaa! XT 


MSE = 1/k[tr(yy") + tr(Xaa™X7™) 
— tr(Xay") — tr(ya'X"™)] 


The gradient of a scaler, c, with 
respect to a matrix, Z, is defined as: 











$B Be het ts We 
023, 9245 024, 
OG) OG) + #2 Oe 
025, OZ55 025, 
dc — 
n= 
oc -\ dc” dc 
OZ. OZn0 OZ an 
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Graupe * gives rules for the gradation 
of trace functions. Those of relevance 
here are: 


Sytr(A) = (0) 
2 tr(AZZ™B) = (ATBT + BA)Z 


2 tr(AZB) =ATBr 


Since the MSE is a positive 
hyperparabolic function of 4, a 
sufficient condition for minimizing 


the MSE is: 
OMSE ~ O for all i 
da, 
0 cs 
s, MSE = 0 
therefore 


Sertyy") + otr(XaaTX") ~ Str(Xay") - 
Str = 
aat(ya'X')= 0 


Applying the rules for gradation of 
trace functions: 


2 tr(XaaTXT) = 2X'Xa 
Str(xXayT) =XTy 


2 tr(yaTXT) = 2 tr(Xay") = XTy 


thus 
QO +2X'Xa— X'Ty— XTy= 0 


a= (X?TX)-1 XTy 


Sequential Least Squares 

This algorithm provides an efficient 
means of performing regression on a 
growing data set. It does this by 
directly updating Q and 4, one data 
point at a time, without actually 
recording the data. However, to show 
mathematical equivalency to the 
Batch Least Squares algorithm above, 
we must imagine a growing y, and X: 


Vu-1 - Xun 
y_.=|— | and X, = 
a a : As | 


Observe that Y x-1 and Xx-1 represent 
old data and (x,.,y,,) is a new data 
point that is being added to form the 
new data set represented by Y;,andX%,,. 
Then starting with the previously 
derived Batch Least Squares: 
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ay = (XXX y,, 


QO, = (XixX,)2 


De NE 
Q)= XIX, 
1 < cu, 
= 2 XX; 
1 ne T 
Oye = 2 KP FX 
1~(c1 oT. 
Ox = Or, + xx; 


Next, the Matrix Inversion Lemma 
will be derived and used. Consider any 
nonsingular square matrices A and C 
and conformable matrices B and D: 


D+DA!BCD =D +DA7!BCD 
DA?(A + BCD) = (C}! + DA?1B)CD 
(C! + DA?B)1DA1(A + BCD) 
=CD 
A?B(C? + DA?1B)1DA? (A + BCD) 
= A1BCD 
1+A?1B(C! + DA?B)1DA? (A +BCD) 
=|1+A!BCD 
[+AtB(C? + DA1B)1DA? (A +BCD) 
= A1(A + BCD) 
(A + BCD)? + A?B(C? + DA1B)!DA? 
= Al 


(A + BCD)?! = 


At — A1B(C! + DA1B)1DA? 





i = -1 “hi -] 
Since OQ, = (O72, +x,x/) 


then by the Matrix Inversion Lemma: 


OL eg OL eet 
XD Xs, xO 





2 T 
= Oy XV 


ay} 


Fes oak 3 
KV = O81 + XLV E 


XV = (OE — xx) ay + XLV] 

a =AXlvy 

ay = GeO xx) } ax +X VI 
a = (OO — Ox xf) ag FOLK, 
a | Ox, X0) ayy + OLXLV, 


ra T 
7 apg t Ox, (yy = XA) 





If the Sequential Least Squares 
algorithm is to be used from a cold 
start, the initial values, a, =O, and 
Qo = cI should be used where c is the 
largest number possible without 
causing failure of the algorithm due to 
roundoff errors. Ideally, Qo-! should 
equal [0] but, since this is singular, an 
ideal Qo does not exist. Hence, for 
any finite Qo, an error is introduced 
into the calculation. Making Qo large 
minimizes this error. There are, 
however, ways to completely avoid 
this error, which should make the SLS 
algorithm at least as accurate as 
algorithms such as Orthogonal 
Decomposition. But that is a topic for 
another article. BBU 


(Listings begin on page 98) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 194. 


SOFTWARE 
ree] a SS 


PROGRAM DEVELOPERS cash in on your creative 
energies, join The SourceView Corporation's SOFT- 
WARE PUBLISHING PROGRAM. Get all of yourR&D 
needs at our distributor cost or loan, plus a lucrative 


20% Royalty! 


SourceView is small enough to give you personalized 
service, we register your software in ISBN publishing 
system, offer a nonexclusive marketing agreement, 
super packaging, specialized services. We seek: com- 
pilers, cross-assemblers, utilities, new DOS, DBMS, 
integrated information processors, graphics systems, 
educ., scien., bus., stat., eng. applications. We offer full 
development & documentation. Don’t hesitate, con- 
tact SourceView immediately! 


Michael L Dean, VP Research & Development 
The SourceView Corporation 

Post Office Box 578, Concord, CA 94522 
(415) 680-0202 


2 


SourceView 


Circle no. 80 on reader service card. 





91 


Minimax Fit 
Function: SIN(X*«PI/2) Range: 0.0 to 1.0 
Maximum Absolute Relative 
Error = 1.08178979E-04 
Error Variance = 5.82237977E-09 
Coefficients: 
AO) 1.5706264010388677E+00 
A(1) -6. 43227566310483564E-01 
A(2) 7. 27074400661 42992E-02 


SIN (3x) ax + a,x? + a5x°, —1<x<1 








Figure 1 


The Relative Error Curve Resulting from the 
Minimax Fitting of a 5th Degree (n=3) Poly- 
nomial to SIN(Pl*X/2) 


Ruckdeschel: 
Minimax Fit 
Function: SIN(XxPI/2) Range: 0.0 to 1.0 
Maximum Absolute Relative 
Error = 1.43752885E-04 
Error Variance = 8.49320500E-09 
Coefficients: 
AO) 1.5706894000000000E+00 
Ai) —6. 4322200000000005E-01 
AZ) 7 205555999 99999999GE-O2 


SIN (5*) a ox + a,x? +a,x°, —1<x<1 











Figure 3 


The Relative Error Curve Resulting from Ruck- 
deschel’s Attempt to Achieve a Minimax Fit 
Using Optimization by Steepest Descent to 
SIN(PI« X/s) 
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Least Squares Fit 
Function: SIN(X*PI/2) Range: 0.0 to 1.0 
Maximum Absolute Relative 
Error = 2.40870170E-04 
Error Variance = 4.50629649E-09 
Coefficients: 
ACO) 1.5706763023886539E+00 
AC1) -6. 4370505986273774E-0O1 
A(2) 7 2 3269627 642904808E-02 


SIN (5*) ® ayx +.a,x3 +ayx°, —1<x<1 








Figure 2 


The Relative Error Curve Resulting from a Least 
Squares Fit of a 5th Degree (n=3) Polynomial to 
SIN(PI+X/2) 





Figures 4 through 21 


Figures 4 through 21 represent approximations 
found by the minimax algorithm implemented in 
the Forth Matrix Language program of Listing 2. 
The even numbered figures duplicate the highest 
ordered approximations found by Hastings whereas 
the odd numbered figures represent approximations 
of a significantly higher order than those of Hastings. 
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Minimax Fit Minimax Fit 
Function: LOG(X) Range: 1.0 to S@RT(10.0) Function: LOG(X) Range: 1.0 to S@RT(10.0) 
Maximum Absolute Error = 1.32254277E-07 Maximum Absolute Error = 1.11137499E-i5 
Error Variance = 8.71559890E-15 Error Variance = 5.76209886E-31 
Coefficients: Coefficients: 
AO) 8. 68591 70032741495E-01 AQ) 8. 6858896380645279E-01 
A(1) 2.8923610841477914E-O1 A(1) 2.8952965462124397E-01 
A(2) 1.7751576585077944E-01 A(2) 1.7371779062864265E-01 
A(S) 9. 4403559884429847E-02 ACS) 1.2408424804953024E-01 
A(4) 1.91297234604173343E-01 A(4) 9. 6506696899528205E-02 
ACS) 7. 9019310730381306E-02 

A6) 6. 6160376582026767E-02 

AC7) 6. 2932880597822538E-02 

AB) Ze 95210224839788299E-02 

ACD) 1.3171606514518003E-01 

A190) —-1.3290449657183437E-oO1 

AC11) 2. 1590497542362960E-01 


= x—1 — 1\3 bs a = 1X2 
LOG o(x) * a5 (X55) +a, (XSF oie Leet ie LOGjo(x) ~ a) (X=) +a, — +... tan ( 
oo 

















Figure 4 Figure 5 


Minimax Fit Minimax Fit 
Function: ARCTAN(X) Range: 0.0 to 1.0 Function: ARCTAN(X) Range: 0.0 to 1.0 
Maximum Absolute Error = 3.75119844E-0g Maximum Absolute Error = 2,.25113635E-i11 
Error Variance = 7.01558800E-16 Error Variance = 2. 44028609E-22 
Coefficients: Coefficients: 
AO) 9. 9999933573499511E-01 A(O) 9. 9999999943085005E-01 
Ati) —3.3329861463931842E-01 A(1) —3.3333327048062561E-O1 
A(2) 1. 9946573483723884E-01 A(2) 1.99997937682554469E-01 
AS) —1.39084668702150279E-01 ACS) —1.4282554529129779E-O1 
A(4) 9. 642297 1343165645E-02 A(4) 1. 10836945021 463881E-o01 
AS) —5.5913682046468495E-02 ACS) —-8. 9412233101935801E-02 
A(S&) 2. 1862890550873954E-02 ACh) 7» 14337292431 75675E-02 
A(7) —4,. 054822782142770449E-03 A(7) —3.2520067625352863E-02 
A(8) 3. 2239154415053844E-02 
ACF) —-1.4726129937627916E-02 
AC1O) = 4,2957241092664187E-03 
A(11) = —5S.8808009033101821E-04 


ARCTAN(x) © agx + a,x3 + +--+ +a5x5, —1<x<1 ARCTAN(x) © ax + a,x? + --- +a,)x?3, —1<x<1 























Figure 7 
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Minimax Fit 


Functions SIN(X£PI/2) Range: 0.0 to 1.0 


Maximum Absolute Relative 

Error = 3.31747856E-09 
Error Variance = 1.41003464E-17 
Coefficients: 
AO) 1.5707963184491878E+00 
A(1) —-&. 4596371064188951E-01 
A(2) 7. 97689679172657638E-02 
ACS) —4. 67376699367 75450E-03 
A(4) 1.5148532647329515E-04 


SIN (Fx) © agx tayx3 + +++ tagx®, —1<x<1 





Figure 8 


Minimax Fit 
Function: 10*X Range: 0.0 to 1.0 


Maximum Absolute Relative Error = 4.96196032E-09 


Error Variance = 1.22996227E-17 
Coefficients: 

ACO) 1.1512927746664381E+00 

A(1) 6. 6273090331202300E-01 

A(2) 2. 543934679391 8238E-01 

A(3) 7. 295204263 1990802E-02 

A(4) 1. 7420655137681311E-02 

A(S) 2.5552719905680065E—-03 

A(&) 9. 3253665510615105E-04 


16% (1 +4,x ta, x24 S=> +ax’)2, O<Xx<1 
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Minimax Fit 
Function: SIN(X*PI/2) Range: 0.0 to 1.0 
Maximum Absolute Relative 

Error = 6.28158853E-14 
Error Variance = 1.94727887E-27 
Coefficients: 
ACO) 1.5707963267947991E+00 
A1) —-6. 4596409749718697E-01 
A(2) 7. 9692626107052855E—-02 
AS) —4. 6817533267793027E-03 
A(4) 1. 6043893116473893E-—04 
ACS) —3.595599 1943598 1 00E-06 
A(&) 5. 459020593068061 1E—-08 


TV aw Siok 13 











Figure 9 


Minimax Fit 

Function: 10*X Range: 0.0 to 1.0 

Maximum Absolute Relative Error = 1.18194099E-13 
Error Variance = 6.91798176E-27 

Coefficients: 


ACO) = 1.1512925464870498E+00 
A(1) = 6.6273726433125657E-01 
A(2) = 2.5433481471199015E-01 
A(3) = 7.3203528479750382E-02 
A(4) = 1.6855309537847786E-02 
ACS) = 3.2355525426469244E-03 
A(&) = 5.2954928235629073E-04 
A(7) = 7.9479944032521686E-05 
A(B) = 7.6291259328835485E-06 
ACF) = 1.9857253301916773E-06 


10* = (1 + aox + axe + aiehe agers 0<x<1 


{ e 


| [" pn / 

| \ / \ | \ 
hoist \ 

I | 


oe 

lc 
pine 

Sen. 
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Figure 11 
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Minimax Fit 

Function: (1i/SQRT(2*PI1)) *EXP(-xXx«X/2) 
Range: 0.0 to 5.0 

Maximum Absolute Error = 2.271755841E-04 

Error Variance = 2.27665975E-08 

Coefficients: 


ACO) = 2.5052394568638987E+00 
A(1) = 1.2830816024602694E+00 
A(2) = 2.26554669890401081E-01 
A(S) = 1.3058266628015777E-01 
AC4) = —2.0229823620712177E-02 
ACS) = 3.91123765898126695E-03 


LF 1 
e ~ —oo<. x<Lco 
2 oS ae 10 ' 
./2n Ag + a,x* ta,x” + + asx 


| / sr fN } 
/ | / \ 














Figure 12 


Minimax Fit 

Functions (PI/2 — ARCSIN(X))/SQRT(1-x) 
Range: 0.0 to 1.0 

Maximum Absolute Error = 2.18035874E-—08 

Error Variance = 2.24955457E-16 

Coefficients: 

ACO) 1.5707963050017066E+00 

A1) —2. 14598803787 10242E-01 

A(2) 8. 8979047458192392E-02 

ACS) —35.0174698127643524E-02 

A(4) 3. 908930031014670889E-—02 

A(S) —-1.7089738000951291E-a2 

AC&) &.6712412050773488E-03 

A(7) —1.2628162735097773E-03 


ARCSIN(x) as —V1—x(ay+a,xt +++ +a5x7),0<x<1 


\ 


\ 
| \ 
: / 


Figure 14 
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Minimax Fit 
Function: (1/SQRT(2%xPI1)) xXEXP(-X8X/2) 


Range: 90.0 to 6.5 : 
Maximum Absolute Error = 2.32244563E-09 


Error Variance = 2.58681580E-18 Coefficients: 


2. 5066282606021 772E+00 
1. 2533150158068533E+00 
3. 13320101 86080966E-01 
3. 2251507235153920E-02 
6. 4745038039304478E-03 
7.0651126222071438E-04 
2. 0618249722321060E-05 
1. 7799505117036926E-05 
—3. 6392970226935947E-06 
7.-6125309644419998E-07 
—9.94715141520834657E-08 
9. 3097523153405433E-09 
—5.8145287978472377E-10 
2. 3753990217929335E-11 
—9.6523614575329404E-13 
6. 2370941540151992E-15 


AO) 
Ai) 
A(2) 
A(3) 
A(4) 
ACS) 
A(4) 
A(7) 
A(B) 
A(9) 
A(10) 
A(1i) 
Ai?) 
A(13) 
A(14) 
A(15) 


i WD Wee See 


ie bow ab 


1 
, —0o<xX<oo 
- #ayex™ 














Minimax Fit 

Function: (PI/2 — ARCSIN(X))/SQRT(1—-x) 
Range: 0.0 to 1.0 

Maximum Absolute Error = 1.60433862E-12 

Error Variance = 1.27557003E-7274 

Coefficients: 

ACO) 1.5707963267933036E+00 

A(1) —2. 1460183603317504E-o01 

A(2) 8. 9048588781845170E-02 

A(3) —5.0792024847596283E-02 

A(4) 3. 3671623513562537E-02 

ACS) —2.4303150171847927E-02 

A(6) 1.8329760127140188E-02 

A(7) —-1.375090630099 1 303E-02 

A(B) 9.5269440415934169E-03 

ACF) —5.5316843097328707E-03 

A(10) 2. 4006330400566690E-—-03 

Aili) —-&. 6846664636149031E-04 

A(12) 8. 77354386863194461E-05 


ARCSIN(x) wal —V1—x(a,ta,x+--- +a,x!2), 0<x<1 














Figure 15 











Minimax Fit 


Function: LN(1+X) Range: 0.0 to 1.0 


Maximum Absolute Error = 3.21271115E-08 
Error Variance = 5.14899243E-164 
Coefficients: 

AO) 9. 9999642149771 728E-01 
AC1) —4.9987400637711582E—-01 
A(2) 3. 35179798745075179E-01 
AS) —2. 4072984401 903777E-01 
A(4) 1.6764614981179890E-01 
A(S) —9,5320711256370566E-02 
AC6) 3. 608354672771 0289E-02 
AC7) —-6. 4523953561366849E-03 


LN(1 + x) © apx taxes +a,x8, O<x<1 








™> 








Figure 16 


Minimax Fit 

Function: EXP(-X) Range: 0.0 to 16.0 
Maximum Absolute Error = 2.42142191E-07 
Error Variance = 2.61153603E-14 
Coefficients: 

AQ) 2. 499986753951 2141E-O1 

A(1) 3. 1257613051553959E-02 

A(2) 2.091337988791 1865E-03 

A(3) 1.715768158299001 9E-04 

A(4) 5. 4274220448181193E-06 

A(5) 6. 90772861 15360822E-07 


ve ae Re ia eos 
1t+a,.x+a,x2+--- +a.x®)4 
0 1 5 
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Figure 18 





Minimax Fit 

Function: LN(1+X) Range: 0.0 to 1.90 
Maximum Absolute Error = 2.99005943E-12 
Error Variance = 4.44361184E-24 
Coefficients: 


AO) 
A(1) 
A(2) 
AS) 
A(4) 
A(S) 
AC&) 
AC7) 
A(8) 
ACF) 
A(10) 
A(11) 





9. 9999999921 292859E-01 


—4.9999993436563822E-01 


3. 3333141255453208E-01 


—?. 4997 1507282271187E-01 


1.9974825550112713E-01 


—-1.6521637838885567E-01 


1. 3708823785361379E-01 


—1.0851242464256000E-01 


7. 6176582881979454E-02 


—4.,3423490764673826E-02 


1.8141724720925251E—-02 
—4.8159341987676569E-03 
&. 00637 48040789543E—-04 


LN(1 +x) ax +a,x? + +++ ayx?8, OXx<1 





Figure 17 


Minimax Fit 

Function: EXP(-X) Range: 0.0 to 20.0 
Maximum Absolute Error = 3.42649682E-13 
Error Variance = 6.04906522E-26 
Coefficients: 


AQ) 
A(1) 
A(2) 
ACS) 
A(4) 
A(S) 
A(&) 
A(7) 
A(8) 
ACF) 
A(10) 
AC11) 


2. 499999999964B8442E-01 
3. 1250000041 451426E-02 
?. 6041665079503278E-03 
1.6276070164139176E-04 
8. 1377395547909460E-06 
3. 3925041887012053E-07 
1. 20484623874673388E-08 
3.9315765909007019E-10 
8. 2517108449071 085E-12 
4.89158149678826166E-13 
—6.5346922729955708E-15 
4.8711465914063989E-16 


ia 1 
er eh ee ee SO 
1+a,x +a,x2+ --- +a,,x!2)4 
0 1 11 
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Minimax Fit 

Function: 1-ERF(X) Range: 
Maximum Absolute Error = 
Error Variance = 
Coefficients: 
A(O) 7 .0523079991967080E-02 
Ai) 4. 2281992401241 905E-02 
A(2) 9. 2705995340344790E-03 
A(3) 1.5190656505008346E-04 
A(4) 2. 766362797 1689751E-04 
A(5) 4. 3048078931175112E-05 


Minimax Fit 

Function: i-ERF(X) Range: 0.0 to 4.2 
Maximum Absolute Error = 1.41490525E-12 
Error Variance = 1.02491312E-274 
Coefficients: 

AO) 7 2«90523697931302184E-02 

AC1) 4. 2275532274750102E-02 

A(2) 9. 28778835935968461E-03 

AS) 1. 4906829666204733E-04 

A(4) 2-3210702049655493E-04 

ACS) 1.0664165183504473E-04 

A(&) —3.4002731629183212E-05 

A(7) 4. 8035866639544990E-06 

A(B) 2. 87538813985644038E-06 

ACF) -1.8271251310999870E-06 

A(1Q) 3.5554105470722536E-07 
A(11) —-1.0046197131329913E-07 
A(12) 1.04381 1330201 7026E-08 
A(13) —-4. 7894501157677281E-10 


0.0 to 4.0 
£e III LL0957E—-07 


2.81576631E-14 


ERF(x) =1— 1 


E ae 
(1 Be ae = 52 RF (x) = 1 


Be ke 14)16’ 
(4+ aga, x2 + tayo) 




















Advanced Screen Management 
Made Easy 


SIMPLIFY ¢ IMPROVE 
e Menus e Help files 
e Datascreens’ ® Editors 


ALL DISPLAYS 


C SOURCE MODULES 
FOR 


pop-up menus, multiple window 
displays, label printer, cursor 
control, text mode bar graphs. 
complete building block 


ADVANCED FEATURES 


e Complete window system 

e Unlimited windows and text files 
e Nest and overlap windows 

e Overlay, restore, and save 
windows 

Horizontal and vertical scrolling 
Word wrap, auto scroll 

Print windows 

Highlighting 









WINDOWS 


FOR C" 


FOR THE IBM PC 
+ COMPATIBLES 
Lattice C, DeSmet C 


C86, Microsoft C 


All versions 


Windows for C $150 
Demo disk and 


manual 


$ 30 


(applies toward purchase) 
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Ie 


Fast screen changes 
No snow, no flicker 


WINDOWS++ 


Much more than a window display 
system, Windows for C |s a video 
display toolkit that simplifies all 
screen management tasks. 


A PROFESSIONAL SOFTWARE TOOL FROM 


CREATIVE SOLUTIONS 
21 Elm Ave., Box T5, Richford, VT 05476 


Circle no. 20 on reader service card. 


subroutines 





DESIGNED FOR 
PORTABILITY 


*Minimal dependence on 
IBM BIOS and 8086 ASM 


FULL SOURCE AVAILABLE 
NO ROYALTIES 


802-848-7738 
Master Card & Visa Accepted 
Shipping $2.50 
VT residents add 4% tax 
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Minimax (Text begins on page 84) 
Listing One 


100 


110 


120 


130 
140 
150 
160 
170 


180 
190 
200 
210 
220 
250 
240 
250 
260 


270 
280 
2970 
300 
310 


320 


3350 
340 
350 
360 
370 
380 
290 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
200 
310 
320 
330 
340 
VO 


370 
380 
370 


MINIMAX VIA ERROR FLUFFING ALGORITHM by Steven A. Ruzinsky 
This program demonstrates the determination of polynomial 
coefficients to a minimum maximum absolute error criterion. The result 
is better than that of Hastings, Approximations for Digital Computers, 
1955, Princeton University Press, p 138. This program is in IBM Basic. 


DEFDBL A-Z : DEFINT I-N 


N 


= 3 : M = 50 : ITERATIONS = 1000 


* The following fills matrices Y(i) and X(i,j) with data. The function used 


is SIN(PI&X/2), however, the data is modified so that the minimax 
criterion is applied to the relative error : 


FOR I = 1 TO M 


rt 
E 
D 


I) = 1 
= I/M 
= 1/SIN(1.570796327#%E) 


FOR J = 1 TON 


X(I,J) = DkE*(J+J-1) 

NEXT J, I 

> The following initiates the @ matrix. It may be necessary to 
to adjust the number in line 280 for best results. 

FOR I = 1 TON 


Q(I,I) = 1000000! 

NEXT I 

> The following loop with index, K, reiterates the sequential least squares 
algorithm. Up to limit M, each data point is incorporated once into @ and 
AK. This results in a least squares fit to the data. Afterwards, the data 

> corresponding to the maximum absolute error are reincorporated back into 
Q and AK. 

EBEST = 1 

FOR K = 1 TO ITERATIONS + M 


IF K > M THEN GOSUB 740 ELSE GOSUB 650 
D= 1 

FOR J = 1 TON 

QX = 0 

FOR I = 1 TON 

QX = QX + XK(1I) *Q(J,1) 
NEXT I 

QX(J) = QX 

D= D + XK(J) ®QX 

NEXT J 

FOR J = 1 TON 

QX = OX(J)/D 

FOR I = 1 TO N 


Q(I,J) = Q(I,J) — @X (1) *#QxX 
NEXT Tou4g 
FOR J = 1 TON 


QX 


= 0 


FOR I = 1 TON 


QX 


= Q@X + XK(I) *@Q(J,1) 


NEXT I 
AK (J) = AK(J) + QXSE 


The following prints the results : 


PRINT "Coefficients:" : FOR I= 1 TON 
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600 AK(I) = ACT) 

610 PRINT AK(I) 

620 NEXT I =: GOSUB 740 : END 

C5 

640 *® Subroutine for incorporating each data point once : 

650 E = Y(K) 

660 FOR I = 1 TON 

670 XK = X(K,I) 

680 XK(I) = XK 

690 E = E — AK(I) &XK 

700 NEXT I 

710 RETURN 

FL 8 nn 

730 * Subroutine for finding maximum absolute error and corresponding data 
point : 

740 EMAX = 0 : JMAX = 1 

750 FOR J = 1 TOM 

760 E = YJ) 

770 FOR I = 1 TON 

780 E=€E — X(J,1) 8AK(I) 

790 NEXT I 

800 E = ABS(E) 

810 IF E > EMAX THEN EMAX = E : JMAX = J 

820 NEXT J 

830 PRINT "Iterations =", K-M, "Maximum Absolute Error =", EMAX 

840 E = Y(JMAX) 

850 FOR I = 1 TON 

860 XK = X(JMAX,1) 

870 XK(I) = XK 

880 E = E — AK(I) &XK 

890 NEXT I 

900 IF EMAX < EBEST THEN EBEST = EMAX : GOTO 940 

910 RETURN 

D209 9 rrr nn 

930 * Subroutine for saving best coefficients, A: 

740 FOR I=i1 TON 

950 ACI) = AK(I) 


960 NEXT I 
970 RETURN 
End Listing One 
Listing Two 
201 LIST 202 LIST 
Ste case Minigax Algoritha, screen 1 of 7 --------------- ) ree ies ca eee Minigax Algoritha, screen 2 of 7 --------------- 
1 { Miniaax Via Error Fluffing by Steven A. Ruzinsky ) 1: FUNCTION ATAN ; 
2 ( This prograa is written in Polyforth with FML Version 3.0 ) 2: POLYNOMIAL a CC tiplyV ; 
3 3: ERROR FDUP FUNCTION FSWAP POLYNOMIAL F- ; 
fe ee Matrix and Variable Definitions --------------- 4; INITIALIZE {Xx yeAa xk Ox @ Oxxt@ CC }clrA 
¥ a 1.0.07) eb Oa 2! 61k tes 
6 ( Enter range of x here: ) 0.0 1.0 6: INSERT-DATA  X1 X2 y [’) FUNCTION yA 
7 7 X1 X2 e xA 
8 ( Enter diaension of X here: ) 320 12 g CC indAé 
9 9 CC #2% {A} 
10 2DUP matrices X x 10 1.0-CC #+°A.5 
11 LCONSTANT X2 LCONSTANT X1 0.0 LCONSTANT ek L1 e CC X ft .X. ; 
12 CONSTANT n CONSTANT @ 0 CONSTANT k i2 
13.0. 2CONSTANT i 1. 2CONSTANT i. 13: e-CALC Yae tht yef-AA; 
14 @ vectors y e n vectors aA n vectors xk CC 14: E-CALC e abs max red{A} ; 
15 n vectors Qx x8 x@ trnv nn g@atrices @ Oxxt@ 15 : V-CALC e sqr f+ red{A} m ON F/ ; 
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Dear fr. Steinbrenner, 


This letter is to draw your attention 
ORIOLES (A) to one of our newest prospects, whose rights 
RANGERS (A) were recently acquired by our club in Tusc- 
WH. SOX (H) aloosa. Her name is Karen BD. Batterball, and 
CARDIRALS(A) we are agreed that she has great major 
I league potential. We would appreciate your 


thoaghts on this matter. 


the professional's replacement 
for Microsoft L80 


APRIL 





SOFTWARE FUSION 


With APX Core Executive™ $95 special 
The software that allows you to introductory 
run as many as 8 programs offer 


simultaneously on your IBM PC. 


With APX Core™ you can coordinate 
off-the-shelf programs through 
overlapping windows and optimize 
keystrokes to reduce repetitive tasks to 


a single command. APX Core™ even a) 
lets you “cut and paste” data among 
LYNX™ DOES different programs. 





EVERYTHING L80™ DOES AND MORE! Application 600 Broadway 
Executive Suite 4C 
Corporation New York, NY 10012 


LYNX™ LETS YOU USE ALL AVAILABLE MEMORY. (212) 226-6347 


Circle no. 4 on reader service card. 


a1 4s Bridge 


You can create COM files that are 10K larger— 
without overlays—by replacing L80 with LYNX. 


LYNX™ 1S A FULL OVERLAY LINKER 





Running twice as fast as its nearest competitor, 4 — cas = mem‘ \/’ 
LYNX is tree structured, multi-segmented and multi- INCOMPATIBLE i i ee 
leveled, with automatic or explicit overlay invoca- DISKETTE ihe PORT-A-SOFT omfg OISKETTE 
tion. You can run programs that are larger than avail- 423 E. Te oe 84057 
abte memory. DOWNLOADING SERVICE 
* Port-A-Soft provides the service of taking programs from a diskette 
LYNX™ HAS BEEN HELPING MICROSOFT FOR- that a customer's computer cannot read and transferring it toa 
TRAN PROGRAMMERS FOR YEARS—NOW IT iS diskette that the customer's computer can read. 
* Service available for approximately 250 diskette and tape formats 
ALSO AVAILABLE FOR MICROSOFT BASIC AND from over 13 micro, mini, and main-frame operating systems. 
AZTEC C. * Disk to disk, tape to disk , disk to tape Conversions. 
* Fast service. One day disk conversions. 72-hour tape conversions. 
LYNX™ iS A QUALITY PRODUCT from the same * Competitive prices. Disk conversions as little as $5.00 per disk plus 
company who offers you: setup, shipping and handling. 
DOWNLOADING SOFTWARE 
‘ f * Port-A-Soft sells programs that make it possible for the customer's 
e GrafTalk, the business graphics package for computer to read diskettes for many other computer makes 
Micros and models. 
¢ GRAPHICS development tools pty cine pits bapeshadeincabt oe Sette 
3 ey : . * Port-A-Soft sells specially designed computers and peripherals tha 
e 2780/3780, 3270, X.25 communications support the reading, writing, and formatting of diskettes for many 
e MICRO TO MICRO communications computer makes and models. 
WHO CAN BENEFIT? 
USERS: Enhance the power of your micro with programs not available 
in your diskette format, or with data such as Mailing lists, taken from 
q 9 track tapes. 
BB id MANUFACTURERS AND DEALERS: Let us help you make that sale 
REDDING @)2.OU!P INC. that is conditioned on converting the customers data to the new 
; computer, or let us help you provide the sale clinching software that 
2730 High Ridge Road the customer needs to opt for your product. 


SOFTWARE PUBLISHERS: Expand your profits by letting us download 
your software to those unusual formats you cannot afford to support 
directly, or by porting your software to other operating systems and 
new markets. 

USERS GROUPS: Get the public domain software you want in the 
format you want for your users group. 


PORT-A-SOFT 


423 E. 800 N. Orem, Utah 84057 (801) 226-6704 


Stamford, CT 06903 
(203) 329-8874/Telex. 643351 


LYNX and GrafTalk are trademarks of Redding Gro 
up, In m 
Mi Ht. AZTEC Ci tr : f g : Cc. eo is a trademark of 





Circle no. 60 on read i 
. er service card. — 
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Listing Two 


203 LIST 206 LIST 
Rp Secor Minimax Algorithm, screen 3 of 7 --------------- ) Ct eee Miniaax Algoritha, screen 6 of 7 --------------- 
1 1 
2: ZERO FDROP 0.0 ; 2 
3: PLOT-ZERO oldSCALE 0.0 1.0 Bx [’] ZERO yA Ox pltA newSCALE ; 3: SEQUENTIAL-LEAST-SQUARES 
4; PLOT-e MRES dark 4 xk @ xQ 87+ 
J BYline .95 SCALE e pltA PLOT-ZERO 1.0 SCALE ; 3 Q xk Bx tAt 
6 : HPLOT-e  HRES dark BYline .95 SCALE X1 X2 [’] ERROR PLOT 4 Qx x@ Axxt@ 2% WY. 
7 PLOT-ZERO FRAME 1.0 SCALE MRES BELL ; 7 xk Qx $V+ 
8 : BATCH-LEAST-SQUARES XQ@T#T QO 1/A XyaregéA ; 8 1.0 F+ 1/N Oxxt@ ft A.5 
9 9 Qxxt@ @ -f AA 
10; RESULTS HPLOT-e 27 EMIT 49 EMIT 10 Q xk Ox t+ 
11 CR O= IF ." Least Squares Fit" ELSE ." Miniaax Fit" THEN 1! k e Va 
12 CR ." Function: ARCTAN(X) " ." Range: 0.0 to 1.0" 12 Qx f# ALS 
13 CR." Maxigum Absolute Error =" 2TOP abs max red{A} 8 S. 13 Ox aft AA ; 
14 CR ." Error Variance =" 2T0P sqr f+ red{A} 2T0P elm ON F/ 8S. 14 
15 CR ." Coefficients:" 16 SCI a V. 16 FIX CR; 15 
204 LIST 207 LIST 
Pee eae Minimax Algoritha, screen 4 of 7 --------------- ) i neers Miniaax Algoritha, screen 7 of 7 --------------- 
1 1: MINIMAX 
2: NORMALIZE-2 @ ON n ON 10.0 FR F/ Of ALS: 2 INITIALIZE 
3 3 INSERT-DATA 
4; REDUCE-e e-CALC 4 RATCH-LEAST-SQUARES 
d a Qx ADA V-CALC [7] ek L' 50 0 Do d REDUCE-E PAGE 0 RESULTS BELL KEY DROP 
6 e-CALC b NORMALIZE-@ 
7 Xe A rregé 7 0509 D0 10000 D0 i 1. D+ [7] i 2! 
8 Aa f+ A.A § FIND-MAX (e) ,xk;RECORD-BEST-a, ek 
9 V-CALC CR FDUP I. 16S. ek 16S. q CRi?D.R k 10 U.R DUP 7 U.R 5 SPACES 8 S. 
10 FDUP ek F< IF [’] ek L! a Oy AYA ELSE FDROP THEN 10 SEQUENT IAL-LEAST-SQUARES 
11 LOOP 11 i+ LOOP 
12 1.0 £7] ek L! 12 Q SPEEDUP 5 SPEEDUP 
13 Qx a ADA 3; 13 DARK PLOT-e BELL BELL BELL LOOP 
14 14 Aa AdA 
13: 2021 a0 D0 1x 1X RR LOOP; 15 PAGE 1 RESULTS ; 
o_o End Listings 
aeses-e Minimax Algoritha, screen 5 of 7 --------------- ) 
! 
2 : SPEEDUP Il? = [Fa 2/(’lea! XAe tht ye f-A.A 
3 eabs {A} ex VC x XsrtsC ey srtsA 
4 yreve Xrevl Xx APA ankX ‘dia 
J aly ‘die mie !dia xX mnx ‘dia THEN; 
6 
7 : FIND-MAX(e) ,xksRECORD-BEST-a, ek 
§ e-CALC 
9 @ amax{i} 
10 C77 ke  EOUP 
1] ek F< IF 
12 FDUP [’} ek L! 
13 iG. For those interested in FML, version 3.0 is available at a cost 
: - As ROC of $150 ppd exclusively from United Applied Research, Inc., 


P.O. Box 1164, North Riverside, 1L 60546, and requires the 
IBM PC with an 8087 and at least 128K bytes of RAM (320K 
bytes preferred) and Polyforth with 8087 support. 
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Languages and Parentheses 


A Suggestion for Forth-like Languages 


hy do most languages use 
parentheses, brackets, or 
braces? In this article, we 


shall consider this question (and even 
discuss a language that doesn’t use 
them!) by tracing an informal route 
from the philosophy of language and 
communication to the practicalities of 
compiler construction. 

This article will also serve as some- 
thing of a followup to the brief descrip- 
tion of the public domain Forth-like 
language PISTOL which appeared in 
DDJ in February 1983. PISTOL will be 
used as an example in the discussion; 
both its virtue and its vice is a lack of 
parentheses. The discussion should 
also be applicable to some degree, 
however, to most languages which use 
a Reverse Polish syntax. 


Languages 

Languages are for communicating. 
We use English to talk to each other. 
Fortran, developed as an aid to give 
computers instructions on how to carry 
out numerical calculations, was an ear- 
ly attempt at designing a language. 
Only a moderate success, Fortran’s 
lack of regularity in syntax makes the 
design of the compiler’s parser quite 
arduous; at the same time the pro- 
grammer finds it difficult to remember 
the details of the syntax. BASIC then 
was developed, its syntax making it 
easier to learn and easier to parse. 

A more recently developed lan- 
guage, Pascal has earned high marks 
for readability by both people and ma- 
chines. The regularity of its syntax 
makes compiling easier and its read- 
ability by humans allows easier modi- 
fication of the program (“‘mainte- 
nance’’); that is, if you can understand 
the program, you are more likely to 


by Ernest E. Bergman 


by Ernest E. Bergmann Physics, 
Building 16, Lehigh University, Beth- 
lehem, PA 18015. 
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find its bugs and fix them, but if a pro- 
gram is incomprehensible, you will feel 
some inhibitions about expanding 
upon it. 

Readability also means that a lan- 
guage can be a vehicle for interperson- 
al communications. (New algorithms 
are frequently described in Pascal.) 
Expressiveness is another important 
aspect of a language. It is easier to 
think of approaches to problems if the 
language supports useful concepts. 

A ‘“‘good’”’ language, therefore, 
should be easy to write and capable of 
expressing the concepts needed for the 
implementation of algorithms. It 
should be easily read by people as well 
as by machines. We may not have a 
good language yet, but the present lan- 
guages may yield fruitful approaches 
for better languages in the future. 


Parentheses in Algebraic 
Languages 

For numerical calculations, we often 
need to provide a formula, such as: 


VOLUME=LENGTH* WIDTH* 
HEIGHT 


For more complicated formulas ex- 
pressed in this algebraic format, we 
must resort to using parentheses: 


TOTAL =(E1*W1I*H1)+(L2*W2*H2) 


Since many algebraic languages, 
such as Fortran, BASIC, and Pascal, 
assign a higher precedence to multipli- 
cation than to addition, the parenthe- 
ses here are optional as far as the com- 
puter is concerned. But for people to 
read this, the parentheses are helpful 
(even essential) for comprehension. If 
the formula requires that the calcula- 
tion be carried out in an order different 
from the normal precedence, the pa- 
rentheses become mandatory. Addi- 
tional parentheses, in addition to the 
mandatory pairs, are acceptable and 
may improve readability. 


Because of the increased readability 
for humans, parentheses are frequent- 
ly used in the design of computer lan- 
guages. To write in a language that 
uses parentheses requires considerable 
training. For example, people accus- 
tomed to a Hewlett-Packard calcula- 
tor, which uses RPN (Reverse Polish 
Notation), would run into problems 
using an algebraic calculator, such as 
those produced by Texas Instruments. 
While many people write in parenthe- 
ses pairs after the rest of the equation 
format is written out, many users of 
HP calculators would find the RPN 
hard to understand if it were written 
out. 

In summary, algebraic notation is 
easier to read and harder to write, 
while RPN, which does not use paren- 
theses, is easier to write (if it is written 
sequentially) but harder to read (a 
somewhat random-access process). To 
parse an expression serially requires 
more work for a compiler if algebraic 
notation is used than if RPN is used. 


LISP 

The use of parentheses in LISP (some- 
times taken to stand for Lots of Irritat- 
ing Single Parentheses) is very con- 
strained. In list notation, parentheses 
are required but you may not add extra 
pairs optionally without altering the 
meaning. For example, the list A, B, C 
would be written (A B C), whereas the 
meaning of ((A B C)) is “the list con- 
taining the single element (A B C)”; it 
is a list of one list. 

It is an interesting question whether 
an RPN version of LISP would be possi- 
ble through constructions such as A B 
C LIST and A B.C LIST-LISF. for 
(ABC) and ((ABC)), respectively. In 
addition to the question of ambiguities 
that might exist, we would have to as- 
sess the readability of the notation. 


PISTOL 
PISTOL was developed to make a 
Forth-like language available to users 


Dr. Dobb's Journal, July 1984 


on large mainframe computers. Be- 
cause it has been written both in Pascal 
and in C, it should be available with 
little conversion effort on many other 
computers. 

The development of PISTOL in- 
volved certain conscious departures 
from Forth, including the adoption of 
some of the methods used in a similar 
language, STOIC (Stack-Oriented In- 
cremental Compiler), which was de- 
veloped as an extension to Forth. It is a 
shame that STOIC has not received as 
much attention as Forth since it is well 
conceived and documented. The most 
noticeable difference between Forth 
and STOIC or PISTOL is the latter’s 
use of string literals to regularize the 
syntax further toward RPN and to in- 
crease the ease of handling strings. 

In any case, all three languages 
(Forth, STOIC, and PISTOL) are large- 
ly precedence free and use an RPN 
style for expressing computations. Any 
reader who uses an HP calculator will 
find the description of these languages, 
which do not rely on paired parenthe- 
ses to control precedence, quite famil- 
iar, although programming an HP cal- 
culator usually is not done in writing. 
Suppose we wish to evaluate: 


(S---7)*13—7 


We would type (for STOIC, PISTOL, 
and Forth): 


Sr is (= 


No parentheses are used. You would 
read this as: “take 5 and 7; add them; 
take 13; multiply it by the previous re- 
sult; take 7; subtract it from the previ- 
ous result; display the answer.”’ 

RPN notation is easier to write be- 
cause no “special cases” occur with re- 
gard to precedence. If you have a 
“function” that takes three arguments 
and returns two results, it “‘fits” into 
the notation without any adjustments 
(and still without the need for paren- 
theses). Variable numbers of argu- 
ments and results can be handled as 
well; in contrast, the Pascal function 
WRITELN takes a variable number of 
arguments and must, consequently, be 
a built-in feature of the compiler. 


Parsing and Code Generation 
These days parsing methods readily 
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applicable to algebraic expressions are 
well known. More often than not an 
intermediate code is produced, such as 
P-code. This code frequently is based 
upon some virtual stack machine. 

Compiling expressions in a Forth- 
like language is extremely simple; you 
create code that pushes each literal 
onto a parameter stack as it is encoun- 
tered in parsing the source code. Al- 
most all other objects encountered in 
the parsing process simply require 
code that invokes the named function 
or procedure. The simplicity of the lan- 
guage reduces the programmer’s work 
in writing source code: you do not have 
to remember the precedence of various 
Operators since you are writing “di- 
rectly” to the stack machine. 


Program Flow in Structured 
Languages 

Almost all software must exercise a 
conditional transfer of program con- 
trol, in addition to purely sequential 
execution. For example, in the C lan- 
guage the general two-way conditional 
branch is: 


if (expression ) 
{true actions} 
else 

{false actions} 


If the original expression, enclosed in 
parentheses, evaluates to “true,” only 
the true actions, enclosed in the first 
set of braces, are carried out. Other- 
wise, only the false actions, enclosed in 
the second pair of braces, are used. 
The “else” portion is optional. If only a 
simple statement is used for the true or 
false action, the enclosing braces be- 
come optional. 

The analogous structure in Pascal, 
which is also subject to analogous sim- 
plifications, is: 


IF boolean expression 
THEN BEGIN 
true actions 
END 
ELSE BEGIN 
false actions 
END 


The key words, BEGIN and END, 
serve the same function as the braces 
do in C. The boolean expression need 
not be enclosed in parentheses. The 


is nn 


same need to group actions together 
exists for the Pascal constructs 
WHILE, REPEAT, FOR, PROCE- 
DURE, and FUNCTION. 

A common feature of most lan- 
guages is the use of keywords and/or 
some sort of brackets or braces to de- 
limit the various elements that form 
the pieces of these control structures. 


PISTOL Structures 

PISTOL is no exception. It groups the 
elements or actions by using pairs (and 
occasionally triplets) of keywords. The 
following elements are defined as 
shown: 


1. Procedure or function: 
"name : body of definition ; 


2. Two-way branch (the “‘else”’ clause 
optional): 
condition IF true actions ELSE 
false actions THEN 


3. FOR loop: 
upper-lim initial-val DO body 
LOOP 


4. REPEAT loop: 
BEGIN actions condition END 


5. WHILE loop: 


BEGIN condition IF actions 
REPEAT 


The “‘case’’ construction (actually 
closer to the COND of LISP) is for the 
benefit of humans: 


variable OFCASE 
condition C: actions; C 
condition C: actions; C 


ENDCASE 


PISTOL’s Syntax Checking 
During compilation, the PISTOL com- 
piler is particularly careful to verify 
that the user is following the few syn- 
tactical rules that do exist. To test for 
proper nesting, the compilation pro- 
cess uses a check stack. When a word 
that starts a structure is encountered, a 
Character of the appropriate type is 
placed on this stack, and when a word 
that completes a structure is encoun- 
tered, a character is removed from the 
stack and checked to make sure it is of 
the right type. 

Consider the following fragment of 
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PISTOL code: 


iersie DO... BEGIN: END: 
BOOP: x. 

In this example, the : leaves a “:” on 
the check stack; the DO leaves a “D” 
on the stack; and the BEGIN leaves a 
‘““B” on the stack. When the END is 
encountered, the check stack is popped 
(returning the “B” from BEGIN) to 
see whether a BEGIN was used last. 
Later the LOOP is encountered, and 
the stack is popped and checked for 
“TD.” Lastly, the ; is encountered, so 
the popped character is checked to be a 

Not only does the check stack ensure 
proper nesting has been maintained 
(an incorrect nesting is likely to pro- 
duce code that would catastrophically 
crash), but it also enables the compil- 
er-interpreter to ascertain when an in- 
put line completes the outermost struc- 
ture; it may then proceed to 
interpretation (execution) of the code. 

As an.aid to the. user) PISTOL 


Re-ink any fabric ribbon for 
less than 5¢. Extremely simple 
operation. We have a MAC 
INKER for any printer. 
Lubricant ink safe for dot 
matrix printheads. Multi- 
colored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
satisfied customers. 


55495 + 





Order Toll Free 1-800-547-3303 


Mac Inker 








prompts with a display of the current 
contents of the check stack. The user 
sees exactly into which structures he or 
she has entered and still must 
complete. 


Brackets Proposal 

I propose that a new structure be avail- 
able to Forth-like languages: braces 
(curly brackets). They would be op- 
tional but could be inserted for im- 
proved clarity. Let’s examine an exam- 
ple taken from one of the basic 
definitions in PISTOL (from the file 
PBASE2): 


"INDENT : DUP TERMINAL- 
WIDTH W@ LT IF 


COLUMN W@- 
SPACES 


ELSE IFCR DROP 
THEN ; 


With the addition of braces; we would 
have: 


Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors—never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals with 
MAC SWITCH. Total 
satisfaction or full refund. 


$9900 





6415 SW Canyon Court 
Suite #10 

Portland, Oregon 97225 
(503) 297-2321 


& MacSwitch 


Circle no. 17 on reader service card. 
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INDENT : DUP { TERMINAL- 
WIDTH W@ LT} IF 
{COLUMN W@- 
SPACES } ELSE 


{IFCR DROP } THEN 


9 


Here the readability is improved in 
that what IF is testing is delineated as 
well as the two alternative conditional 
courses of action. Forth-like languages 
are sometimes criticized because ev- 
erything runs together; could these 
braces form the solution? 

Another benefit of braces is the de- 
ferral of both execution and the recy- 
cling of string space. For example: 


X> “HELLO THERE” MSG 
HELLO THERE 

properly prints the greeting, whereas: 
AS “HELLO THERE * 


1X> MSG 
MSG 


obviously does not! In the second ex- 
ample, the “HELLO THERE” pushes 
a pointer to itself on the parameter 
stack. (We see from the second prompt 
that there is now one item on the 
stack.) However, the pointer points to 
an area where the space has been recy- 
cled, so the (erroneous) string “MSG” 
is printed instead. With braces this re- 
cycling action can be delayed, as 
follows: 


X> { 

X{> “HELLO THERE” 
X{> MSG 

X{> } 

HELLO THERE 


The prompt indicates that we have en- 
tered the “‘brace structure.” Thus we 
need not worry about ending lines after 
we have typed in (possibly quite long) 
strings needed for execution on the fol- 
lowing lines; we simply must remem- 
ber to encircle the strings and the 
words that use them with braces. 

I have included a listing of a file 
BRACKET that adds the needed defi- 
nitions to this structure (Listing One, 
page 104). Note how little work is 
needed to extend Forth-like languages! 
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I also have included the transcript of a 
session at the terminal that shows what 
happens when BRACKET is loaded, as 
well as a number of facilities that are 
part of PISTOL (Listing Two, page 
106). 


Conclusion 

Forth-like languages such as PISTOL 
demonstrate that delimiters such as 
parentheses or braces are not required 
for a general-purpose computer lan- 
guage. (Such languages, however, may 
use them for other things. Forth imple- 
mentations, for example, often use pa- 


rentheses and square brackets for spe- 
cial purposes.) With the recent 
emphasis on readability by people even 
at the expense of greater effort in writ- 
ing, perhaps braces should be available 
for optional use by the writer. The lan- 
guage compiler could ignore these 
braces except perhaps to check the 
syntactical requirements that struc- 
tures properly “nest,” as with PISTOL 
here. Whether or not such a feature 
can be added to a particular Forth sys- 
tem as easily as it has been added here 
to PISTOL probably depends on details 
of the particular implementation. 


PISTOL is available on a CP/M dis- 
kette at nominal cost from the C Us- 
er’s Group, Box 287, Yates Center, KS 
66783, and as SIG/M Volume 126 
from the Amateur Computer Group of 
New Jersey (ACGNJ), Box 319, South 
Bound Brook, NJ 08880. 
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Languages and Parentheses. (text begins on pase 192) 
Listing One 


& OCTOBER 2, 19835 ¥**kKkERACKET DEFS FoR FISTOL XK EK 
& THE TOKENS, { and 3} ARE NOFS IN USE BUT ENARLE 
& THE FROGRAMMER TO SUPPLY EMPHASIS To GROUPINGS 


HE xX 


4 IMMEDIATE FATCHES DEFINITION TO EXECUTE DURING COMPILATION: 
“IMMEDIATE : *NOF ADDRESS CURRENT Wa Wa We wi : 


" 


“SYNTERR : "SYNTAX ERROR" MERR : 


“{ : SYNTAXBASE CO 1+ DUP CHELMT LT 

IF SYNTAXBASE C! % UPDATE COUNT 
7E SYNTAXBASE DUF Ca + C! Ai Pee ae 

ELSE SYNTERR 

THEN 

IMMEDIATE 


‘Bs 


SYNTAXBASE DUF Ca + Ca 7R EO 
IF SYNTAXBASE Ca 1- SYNTAXBASE Cc! 
ELSE SYNTERR 


THEN 
¢ IMMEDIATE 
3 F 
Listing of BRACKET, which adds the definitions of "¢" 
ang." to FISTOL. | End Listing One 
Listing Two 


The enclosed terminal session listing is provided to demonstrate a number of important features and aspects of 
PISTOL. 

Here is a running commentary on that listing. The only hint that this was run ona CP/M environment appears on 
the first line with the system prompt A>. (All subsequent dialogue is standard for all PISTOL environments.) 
Restoring the ‘‘core image,’’ CORE2, is a fast way to recreate PISTOL without recompiling the extensive source 
code that is supplied originally to bring PISTOL up. Turning the ECHO ON enables us to watch the lines of the file 

(Continued on next page) 
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Languages and Parentheses (Listing Continued, text begins on page 102) 
Listing Two 


BRACKET being input for compilation. 

BRACKET is being loaded; the following lines should look very much like the supplied listing of BRACKET, but here 
PISTOL is supplying the prompts. The word % is used to mark the rest of the line as a comment. Notice that after a 
couple of lines the prompt changes from X> to H> to show that the number base has been switched from decimal 
to hexadecimal (by the word HEX). 

The word IMMEDIATE is defined to poke the address of NOP into a location that has to be calculated with respect 
to the start of the code of the CURRENT definition. The operator W@ does a word fetch; the W- backs up an 
address by one word size; W! pokes the word (here, the address of NOP). 

After SYNTERR is defined we see { being defined. Since the definition takes several lines, we see that the prompt 
contains a: , indicating that the : ... ; structure is incomplete; also, within the same definition, an IF...ELSE... THEN 
structure is used and the ‘“‘F’’ and ‘‘E’’ tokens appear in'the prompt. The number that starts the prompt indicates 
that the parameter stack is not empty; it is used in the compiling process to calculate the address offsets needed to 
generate the code associated with most of the structures. 

The word ;F is the logical end-of-file; PISTOL confirms that the loading of the file is complete. 

| have typed TOP 10 to get alist of the 10 most recent definitions. Since | am not interested in seeing the next 10 
most recent definitions, | throw away (DROP) the backward link left on the stack. DECIMAL returns me to base 10. 

It is possible to disassemble a definition with the built-in disassembler DIS; IMMEDIATE is analyzed to look more 
or less like its original definition. 

Finally, | do a few tests of the definitions of { and of }. It does appear that the prompt is properly indicating the 
number of brackets, and when | type too many }’s, an error message is displayed. Also checked here is the way 
strings are recycled and that the { can be used to defer execution until the matching } is typed. 

Lastly, the TRACE facility is demonstrated for the word MSG. BYE is the proper way to exit PISTOL. 
ALFISTOL 
KKK FISTOL 2.0 Kx 
y* CORES RESTORE 
> ECHO ON 
*RRACKET LOAD 
> % OCTOBER @, 1983 *KKeXBRACKET DEFS FOR FISTOLAKKK 
> % THE TOKENS, { and 3} ARE NOPS IN USE BUT ENABLE 
>» % THE PROGRAMMER TO SUPPLY EMPHASIS TO GROUPINGS 


» HEX 


> % IMMEDIATE PATCHES DEFINITION TO EXECUTE DURING COMPILATION: 
"IMMEDIATE : *“NOF ADDRESS CURRENT Wa Wa W- WI ; 


*SYNTERR =: "SYNTAX ERROR" MERR 3 


2" 2 


2 


SYNTAXBASE Ca 1+ DUP CHELMT LT 


m 
\. 


26 2 eer rT Lee Ro Oe Re 


He TF SYNTAXBASE C! % UFDATE COUNT 
2Her > 7B SYNTAXBASE DUF Ca + C! % “RPUSHE = <* 
2nir.> ELSE SYNTERR 
2ans& > THEN 
ifts s IMMEDIATE 
4 > 
H> *3 s SYNTSXBASE DUP Ca + Cad 7B EO 
> > IF SYNTAXBASE Cd i- SYNTAXBASE C! 
ers F > ELSE SYNTERR 
zrisk > THEN 
THs > : IMMEDIATE 
es 
i SF 
BRACKET LOADED 
HY 
HH: FOrFLO 
= (Continued on page 108) 
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MicroMotion 


MasterFORTH 


I's here — the next generation 


Of MicroMotion Forth. 





Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 


e Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 


@ Built-in micro-assembler with numeric local labels. 


@ A fullscreen editor is provided which includes 16 x 
64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable contro! 
keys, and search & replace commanas. 













@ Includes all file primitives described in Kernigan 
and Plauger's Software Tools. 


@ The input and output streams are fully redirectable, 


e The editor, assemblerand screen copy utilities are 
provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 









e Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 









e The string-handling package is the finest and 
most complete available. 







e A listing of the nucleus is provided as part of the 
documentation. 


e@ The language implementation exactly matches 
the one described in FORTH TOOLS, by Anderson 
& Tracy. This 200 page tutorial and reference 
manual is included with MasterFORTH. 


e@ Floating Point & HIRES options available. 
@ Available for APPLE II/Il+/lle & CP/M 2.x users. 
@ MasterFORTH — $100.00. FP & HIRES -$40,00 each 











Publications 
@ FORTH TOOLS - $20.00 


e@ 83 International Standard — $15.00 


@ FORTH-83 Source Listing 6502, 8080, 8086 — 
$20.00 each. 








Contact: 


MicroMotion 
12077 Wilshire Blvd., Ste. 506 

Los Angeles, CA 90025 
(213) 821-4340 


Circle no. 41 on reader service card. 





A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and 1/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M” 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


“CP/M is a Trademark of Digital Resaerch, Inc. 
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GREP .C 


UMM TD Gt a-ve ti E-y 
expression recognizer 


_MAIN 


Wildcard expansion & 
pipes for Aztec C 


All programs come with complete source 
code, in C. Price: $35 each: $50 together. 


For more information 
or complete catalogue: 


SOFTWARE ENGINEERING CONSULTANTS 
P.O. BOX 5679 
BERKELEY, CA 94705 


(415) 548-6268 
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Listing Two 
6870} 

684A ¢ 

6838  SYNTERR 
6820 IMMEDIATE 
67EE HELP 
66DA  TYIL 
6688 UC 

6670 @ 

666E A’ 

65EC FINISH 
1H> DROF 

H> DECIMAL 


X> * IMMEDIATE DIS 


“IMMEDIATE (C: 4] 


Ww! 
X 


ae 


“NOR " ADDRESS CURRENT Wa 


5 


SYNTAX ERROR 

KXK PISTOL 2.0 EX 
X¥> “HELLO THERE" MSG 
MELLO: THERE 

> "HELLO THERE” 


1X > 
MSG 
X> ¢ 
XC 


Xt 


MSG 


HELLO THERE” 


MSG 


HELLO: THERE 
X> “HELLO *MSG TRACE 


"MSG 


(1) 
(2) 
(2) 
(1) 

ma? 
(2) 
(2) 
(2) 


(0) 


REING TRACED: 


B2OBS 

SBeLUBG 32086 
pele 3 
22OB6 

S2086 32086 
32086 S207 
S2087 S2086 


wea? 93 


TRACE COMPLETED 
X> BYE 


PISTOL NORMAL EXIT 
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Wa) W- 


DUF 

Cw 
L.INE-SPACE? 
DUF 


TYPE - HELLO 
(s) 
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edward k. ream 


FULL SCREEN EDITOR 
with 


FULL SOURCE CODE in C 


for 


CP/M 68K or CP/M 80 


¢ RED is a powerful yet simple full screen text 
editor for both programmers and writers. 


° RED features 17 commands including block 
move, block copy, search and substitute. 


© RED comes with full source code in 
standard C: RED works as is with the 
BDS C, Aztec CII and Digital Research 
Compilers. 


¢ RED supports ai// features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 


¢ RED handles files as large as your disk. 


¢ RED is guaranteed. If for any reason you 
are not satisfied with RED, your money will 
be refunded promptly. 


Price: $95. 


Call today for more valuable information: 
(608) 231-2952 


To order, send a check or money order to: 


Edward K. Ream 
1850 Summit Avenue 
Madison, Wisconsin 53705 


Your order will be mailed to you within one week. Sorry, I can 
not handle credit cards. Please do not send purchase orders 
unless a check is included. RED is distributed only on 8 inch 
CP/M format disks, but other disk formats are available 
through third parties. 


Dealer inquiries invited. 


GGM — FORTH™ has HELP* 
for Z80' using CP/M? 


GGM—FORTH, a complete software system for 
real-time measurement and control, runs on any 
Z80 computer under CP/M using an extended 
fig-FORTH vocabulary. 


GGM—FORTH features: 


@ Open multiple CP/M files, in any combin- 
ation of direct-access and sequential-access, 
fully compatible with all CP/M utilities 


Char. in/out uses CP/M console, lister, file, or i 


port 


On-line HELP* provides instant access to defi- | 
nitions in the run-time GGM—FORTH dictionary 


HELP* file is easily extended to include user | 
definitions using HELP* utility 


HELP* is available during full-screen editing 


Complete system and manuals $150. 
Manuals only: $ 20. 
Introductory System: $ 35. 


GGM SYSTEMS, INC. 
135 Summer Ave., 


1280 is a trademark of Zilog, Inc. 
CP/M is a trademark of Digital Research, Inc. 


_Circle no. 29 on reader servic 
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Including a new dynamic debugger 
Still the choice of professionals 


(617) 662-0550} 
Reading, MA 01867 a 


¢ Compiler option to generate special 
symbol table for new dynamic 


debugger by David Kirkland. (With the 


debugger, the distribution package 
now requires two disks.) 


° Takes full advantage of CP/M® 2.x, 
including random-record read, seek 
relative to file end, user number 
prefixes, and better error reporting. 


V 1.5 
V 1.46 ....$115.00 


(needs only 1.4 CP/M) 


Other C compilers and 
C related products 
available .. . Call! 


TERMS: CHECK, 
MONEY ORDER, C.O.D., 
CHARGE CARD 
HOURS: 9 am—5 pm 
Monday —Friday 


(316) 431-0018 


* Clink option to suppress 
warm-boot 

* New library file search eapabilities 

° New, fully-indexed 180 page manual 


° ® CP/M is a trademark of Digital 
Research, Inc. 


IT’S HERE! 


MONEY MAT 


¢ Uses BCD internal 
representation. 

* You choose from two types 
of rounding. 

* Configurable exception 
handling 

* Distributed with 12 digits 
precision. Easily configured ~ 
for more or less 

° Excess 64 exponents 


SOURCE 7 
INCLUDED $§0090 
mee a 


481, Chanute, Kansas 66720 


include $2.50 for postage and handling 








Balancing Act: 


The Ultimate Checkbook Balancing Program 


alancing a checkbook is a little 

like asking which is the best 

programming language: every 
time you do it, you’re liable to get a 
different answer. But now, after long 
years of expensive research, that prob- 
lem is behind us. This article won’t just 
describe what may be the world’s easi- 
est-to-use checkbook balancing pro- 
gram—the revolutionary program it- 
self is included here free. (See the 
listing below.) 

Everyone seems to have trouble with 
checkbooks and banks. Do you find 
yourself struggling with Stith’s first 
law of banking: No Deposit, No Re- 
turn? Do you wonder how banks can 
make you stand in line and then de- 


by John E. Stith 


John E. Stith, P.O. Box 6677, Colora- 
do Springs, CO 80934. 





mand a service charge? How often are 
you told “The check is in the mail’’? 
Have you ever received a dirty look 
from a bank guard when you’ve joined 
a long line and asked, “Hey, what’s the 
holdup?”’? If so, a stupid program isn’t 
going to solve anything. But if you just 
need an infinitely simpler way to bal- 
ance your checkbook, read on. 

This program has all the traditional 
boring features. It runs rapidly, uses 
minimal storage space, has adequate 
comments, and is easy to convert to 
other BASICs. (It’s written in Micro- 
soft BASIC.) But I didn’t stop there. 
No. 

Not only does it work with paper 
and rubber checks, you never again 
have to record a checking transaction. 
In fact, you don’t even need an active 
account. How many programs require 
rerunning every single month? Not 
this one. Run it once and you're 
done—it does it right the very first 


Balancing Act Listing 


100 
110 
200 
210 
300 
310 
400 
410 
500 
510 
550 
600 
610 
620 
630 
640 
650 
660 
670 
680 
999 


REM L = 
REM W = 
PRINT 
PRINT 
PRINT 
INPUT L 
PRINT 
INPUT W 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 


"AND"; W/2 ; 
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"MARK THE SPOT"; 


REM BALANCING ACT -- THE ULTIMATE CHECKBOOK BALANCING PROGRAM 
REM AUTHOR -- JOHN E. STITH -- c COPYRIGHT 1983 

CHECKBOOK LENGTH 
CHECKBOOK WIDTH 
"BALANCING ACT -- THE ULTIMATE CHECKBOOK BALANCING PROGRAM" 


"WHAT IS THE LENGTH OF YOUR CHECKBOOK (THE LONG DIMENSION)"; 
"WHAT IS THE WIDTH OF YOUR CHECKBOOK (THE NARROW DIMENSION) *; 


"NOW PLACE YOUR CHECKBOOK SO ITS LONG DIMENSION FACES YOU." 
"UNITS FROM THE LEFT SIDE °; 
"UNITS FROM THE TOP." 
"THIS SPOT IS AS CLOSE AS YOU ARE GOING TO GET TO °; 
"THE CENTER OF GRAVITY." 

"PLACE YOUR PENCIL POINT UNDER IT, °; 
"AND YOUR CHECKBOOK SHOULD BALANCE. " 
"DON'T WORRY IF IT DOESN'T BALANCE PERFECTLY. "; 
"EVERYONE HAS THAT PROBLEM. " 


LJj2 


’ 


time. 

It also runs perfectly with personal- 
ized checkbooks, as long as your name 
is printed in lightweight letters. Cow- 
hide, pigskin, hamster hide—no prob- 
lem. It works with both rectangular 
and square checkbooks. An ambitious 
clever programmer could probably 
even modify it to handle round check- 
books. Finally, the new, improved ver- 
sion 17.0 adapts automatically to 
whatever units you prefer. Enter your 
dimensions in inches, microns, light 
years, and the program will deliver 
your answer in those very same units. 

So, say goodbye to early withdrawal 
symptoms and automated tellers that 
don’t smile back at you. Here’s your 
chance to let modern technology solve 
more problems than it creates. 


BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 196. 


t 


' 
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New Release 
4.4 


We've continually improved Microstat since it was introduced in 
nea and the latest release includes many new features you’ve 
wanted. 


Interactive and Batch Processing Data sets that can exceed memory 
Expanded Data Management Multiple Regression (including 
Subsystem with New Data Stepwise ) 
Transforms Scatterplots (including best fit 
Reading data files created by other regression ) 
Program's - Correlation Analysis 
3 types of Analysis of Variance 12 Nonparametric tests 
Time Series ? 8 Probability Distributions 
Crosstabs and Chi-Square Descriptive Statistics 
Factorials, Permutations, and Easy Installation 
Combinations 
Hypothesis Tests 


Microstat’s algorithms have been designed to prevent numeric overflow errors 
and yield unsurpassed accuracy. Microstat’s price is $375.00 including the user’s 
manual and is available for the Z80, 8086, 8088 CPU's and CP/M8O, CP/M86, 
MS-DOS, and PC-DOS. To order, call or write. 


6413 N. College Ave. @ Indianapolis, IN 46220 
(347) 255-6476 


BCOSOF TING. 


Trademarks: Microstat (Ecosoft), CP/M (Digital Research), MS-DOS (Microsoft), 
PC-DOS (IBM), Z80 (Zilog), 8086, 8088 (Intel). 
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Kutrcng 
WALTZ LISP™ 


The one and only adult Lisp system for CP/M users. 


Waltz Lisp is a very powerful and complete implementation of the Lisp programming 
language. It includes features previously available only in large Lisp systems. In fact, 
Waltz is substantially compatible with Franz (the Lisp running under Unix), and is similar 
to MacLisp. Do not be deceived by the low introductory price. 

Waltz Lisp is a perfect language for Artificial Intelligence programming. It is also 
suitable for general applications. In fact, due to the ease of handling of textual data and 
random file access functions, it is often easier to write a utility program in Waltz Lisp than 
in any other programming language. Several general purpose utilities (including grep and 
diff) written entirely in Waltz Lisp are included with the interpreter. 


Much faster than other microcomputer Lisps. ¢ Long integers (up to 611 digits). Selectable radix. ¢ True 
dynamic character strings. Full string operations including fast matching/extraction. «© Random file 
access. ¢ Binary files. * Standard CP/M devices. * Access to disk directories. ¢ Functions of type lambda 
(expr), nlambda (fexpr), lexpr, macro. ¢ Splicing and non-splicing character macros. ¢ User contro! over 
all aspects of the interpreter. © Built-in prettyprinting and formatting facilities. e Complete set of error 
handling and debugging functions including user programmable processing of undefined function 
references. ¢ Optional automatic loading of initialization file. © Powerful CP/M command line parsing. ¢ 
Fast sorting/merging using user defined comparison predicates. ¢ Full suite of mapping functions, 
iterators, etc. ¢ Over 250 functions in total. © Extensive manual with hundreds of illustrative examples. 


Waltz Lisp requires C/PM 2.0, Z80 and 48K RAM (more recommended). SS/SD 8’’ and 


most common 5’’ disk formats. 
Introductory Price....$94.50 
Manual only 


(refundable with order) 
{2 additional charges 
T.M. $10.00 conversion fee for 5’’ Diskettes 
RO ODE $3.00 C.0.D. charge 


wb att Ee Call toll free 1-800-LIP-4000 Ask for Dept. #3 
P. O. Box 7301 In Oregon and outside U.S.A. call 1-503-684-3000 
Charlottesville, VA 22906 Unix® Bell Laboratories. CP/M® Digital Research Corp. 
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a: 
IBM PERSONAL 
COMPUTER. 


THE PREMIER LANGUAGE 
ee 
aS Rae haat) 
YOUR IBM PC. 


@ DATA TYPES 
Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 
Machine Language Code 


MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


10 SUPPORT 

Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

.OBJ File Loader 


M RUNS UNDERPC-DOS1.10r2.0; 
Ree ee eee eee 


IQLISP 
5%" Diskette | 
and Manual. ——s—s——s«S $175.00 
Manual Only — $ 30.00 


fe q Integral Quality 
P.Q. Box 31970 


Seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 
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BOOK REVIEWS 


C Programmer's Library 

by Jack Purdum, Timothy Leslie, 
Alan Stegemoller 

Published by Que Corporation 
$19.95, 366 pages 

Reviewed by John R. Johnson 


The definitive source on the C pro- 
gramming language is, and will likely 
remain, the book The C Programming 
Language by Brian Kernighan and 
Dennis Ritchie. It is elegant, complete, 
and spare. Needless to say there has 
been a rush to publish expansions, ex- 
planations, and elucidations. 

One of the best of these was the C 
Programmers Guide by Jack Purdum. 
This second book also issues from the 
senior staff at Ecosoft Incorporated, 
and seems to continue where the first 
left off. 

The declared audience for the book 
is a programmer who is familiar with 
the syntax of the C language and wish- 
es to learn how to develop the full 
power of C. Rather as a bonus, they 
throw in the sample source code they 
use to demonstrate proper use of decla- 
rations, structures, and functions for 
library construction. This is code for 
an ISAM data base system with a sig- 
nificant application example, a book 
catalog and retrieval system. 

It is apparent that several authors 
were involved. The initial coverage of 
complex declarations was thorough 
and well done. I thought it a good idea 
to tie the declaration followthrough to 
an actual compiler algorithm. A good 
understanding of the underlying mech- 
anism makes variations in syntax more 
understandable. 

The coverage of structures, on the 
other hand, was much more sibtle. 
Rather than just saying “here is a 
structure” the author let you become 
aware of what using structures correct- 
ly does for your programs. This direct- 
ed self-discovery is also a powerful tool 
for communication of understanding. 
The chapter on sorting is good, not for 
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the sorting information, but for the 
separation of functions. The reader is 
shown how to improve average pro- 
grams by taking advantage of the fea- 
tures of the C language. 

Although all of the authors are asso- 
ciated with the same company, which 
does produce a C compiler system, you 
would not know that from the treat- 
ment. They have an appendix with 
samples of the library functions that 
have to be added to compile the sample 
programs with most of the popular C 
compilers available for micros. As an 
added bonus most of the sample pro- 
grams were compiled and tested with 
the UNIX PCC compiler. 

Overall, I found the book a useful 
adjunct to my Kernighan and Ritchie. 
I think that most serious users of C 
would find it worth having the samples 
in a program library and the book on 
the shelf. 


Building Controls 

Into Structured Systems 

by Alan E. Brill 

Published by Yourdon Press 

Reviewed by Dr. Joseph B. 
Rothstein 


As microcomputer programming has 
moved from the basements of hackers 
to the boardrooms of the Fortune 500, 
the demand for accountability and 
control for microcomputer programs 
has grown almost as fast as the micro- 
computer industry itself. 

The thought that programs run on 
micros would be important enough to 
warrant auditing would have drawn 
laughter just a few years ago. But as 
successive generations of ever-more- 
powerful microcomputers have be- 
come an essential part of corporate 
life, comptrollers and financial manag- 
ers have come to insist on the same sort 
of tight controls and auditing proce- 
dures they are used to on their main- 








frame and minicomputer systems. 

The systems analysts, auditors, and 
financial management specialists at 
Yourdon, Inc. have established them- 
selves among the leading consultants 
to big business. They embraced the 
concepts of structured programming 
early on, and have built a reputation on 
their seminars, periodicals, and book 
titles. 

A newly published text from Your- 
don Press, Building Controls Into 
Structured Systems by Alan E. Brill 
condenses some of the most important 
concepts of EDP auditing, applications 
systems controls, and essential proce- 
dures into fewer than 150 pages. While 
not aimed specifically at micro users or 
programmers (specific hardware is not 
even mentioned ), the concepts involved 
are as appropriate to a “Little Won- 
der-80”’ as they are to an IBM 4300. 

This is not an accounting book; nor 
is it a book about programming — in- 
deed, there is not a single line of pro- 
gram code in the entire volume. Rath- 
er, Brill describes a methodology for 
building well-controlled systems fea- 
turing internal accounting controls 
and external application controls, all 


designed to provide reasonable assur- 


ance that the system is able to detect 
and handle any errors or anomalies 
that may crop up. 

Numerous examples, including fic- 
tional ‘“‘dialogues” between program- 
mers and users, auditors, or managers, 
illustrate the importance of such con- 
trols. As more and more businesses 
automate their payrolls, customer lists, 
etc., the risks of uncontrolled systems 
are all too often illustrated by fiscal 
tragedy. Such horror stories seldom 
make headlines; most businesses would 
rather take their lumps and swallow 
their losses than have the world learn 
how lax they’ve been. But most pro- 
grammers in large organizations can 
describe in gory detail how some other 
guy (never themselves!) resigned in 
disgrace after his or her system fell] 
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apart. It’s just this sort of tragedy that 
the author counsels programmers how 
to avoid. 

As the title implies, structured tech- 
niques are emphasized throughout. 
Just as these techniques can be applied 
to the task of designing and imple- 
menting program code, so can they be 
applied to auditing and application 
controls. In the first few chapters Brill 
introduces the field of EDP auditing 
and the concepts of phase-related con- 
trol — the process of identifying, spec- 
ifying, and documenting the internal 
controls appropriate to each stage of 
the system’s development life cycle. 


Successive chapters cover modeling 
controls during the analysis, design, 
and implementation phases, followed 
by chapters on documentation reviews 
and maintenance reviews. The book 
closes with a discussion of several typi- 
cal plans for action that are almost 
sure to fail, then contrasts those with 
an approach that is more likely to 
succeed. 

A breezy conversational style is used 
throughout, enlivening a subject that 
could easily have been treated in an ac- 
ademic and jargonistic fashion. Draw- 
ings, charts, and summaries are used 
extensively to further clarify impor- 
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tant concepts. 

Clearly, though, this is not a book 
for everyone. The hobbyist, game de- 
signer, or personal-software user may 
never need or want such stringent con- 
trols. But once money enters the pic- 
ture, especially big money — and par- 
ticularly corporate big money — the 
controls and audit procedures Brill de- 
scribes are likely to become de rigueur. 
The serious professional programmer 
had best acquaint him or herself with 
them. 

As the author states in his Preface, 
‘You will eventually have to put con- 
trols into your application systems. 
You can choose to wait until the audi- 
tors and your boss force you to do so, 
but wouldn’t it be easier and more im- 
pressive if you took the initiative to as- 
sure that effective internal controls are 
a built-in part of every application sys- 
tem that you build?” It’s just this sort 
of no-nonsense, practical approach 
that makes Building Controls Into 
Structured Systems a worthwhile in- 
troduction to a subject that is moving 
to the forefront among the concerns of 
business executives and EDP planners, 
and thus will influence the careers and 
futures of programmers as well. 


MENTOR — 

The Magazine on Disk 

Mentor Computer Series, 533 
Sutter Street, Suite 914, San 
Francisco, CA 94102 

$18.00 per issue 

Reviewed by Dian Crayne 


The idea of putting magazines on disk 
is one of those notions that have been 
kicking around, under one guise or an- 
other, ever since computers came out 
of the office and into the home. 

Most publishing companies have 
shied away from the diskette format 
because of the problems involved. Not 
only would they have to go through all 
of the monumental work involved in 
putting out a magazine, they would 
also have to make sure that it got 
transferred (without errors) to a flexi- 
ble, rather fragile diskette and sent toa 
subscription list without being folded, 
spindled, mutilated, or erased. The 
idea alone is enough to make most 
publishers turn pale. 


Dr. Dobb's Journal, July 1984 


One company that has faced up to 
the challenge is Mentor Computer 
Services, which published the fourth 
issue of Mentor, “the magazine on 
disk,” in January of this year. Al- 
though some other publishers — nota- 
bly Ziff-Davis with its PC Disk — 
have flirted with the concept of send- 
ing out software on magnetic media, 
Mentor appears to be the only compa- 
ny that has really gotten off of the 
ground so far. 

“Disk is more appropriate media 
than paper for computers,” says editor 
Ted Lester, whose staff does both edit- 
ing and publishing for this venture. He 
went on to explain that he is particu- 
larly proud of the fact that Mentor has 
published some excellent add-on utili- 
ties for existing programs, which gives 
subscribers software they can actually 
use instead of curiosities to stuff away 
on a Shelf. 

The first issue of Mentor, for in- 
stance, carried a WordStar customiz- 
ing program; follow-up articles ap- 
peared in the next two issues. Issue No. 
4 also carried LEADS, “The Buyer’s 
Worksheet for Lotus 1-2-3,” a work- 
sheet program that helps salesmen to 
track customers and sources. Mentor 
has also published mailing list pro- 
grams and a MailMerge enhancement 
package. 

Other articles and programs that 
appeared in issue No. 4 were “Critical 
Path Method Project Schedule,” by 
Philip Jacka; “‘Tally,” a data base 
counting program by Richard Malm; a 
discussion on “‘Transfers Between 
dBase II and 1-2-3” by LeBlond and 
Cobb; and “Clock,” an assembly lan- 
guage tutorial program that shows us- 
ers how to display the current time on 
their screen. 

There was also an article on 
PCrayon, a discussion of job streaming 
for Pascal compilers, and some regular 
features including a column by Rick 
Albert, letters to the editor, editorials, 
and a shoppers’ reference list to prod- 
ucts mentioned in the magazine. And 
yes, there is a cumulative index. 

Mentor comes in a sturdy black 
plastic diskette box, the kind that 
opens up to make a vertical file for the 
diskettes. New subscribers get a start- 
up diskette and one or more program 
diskettes, which hold the contents of 
the magazine. Since DOS is not distrib- 
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uted with the magazine (diskzine?), 
users have to create their own system 
diskette and then move the required 
files to it from the startup diskette. 
Once you've gotten the starter set, sub- 
sequent issues consist only of the mag- 
azine diskettes themselves. 

Mentor looks a lot like a hard-copy 
magazine once you begin to display it 
on the screen. The first page displays 
the magazine logo, and the next few 
pages list the editorial staff and then 
the contents. Pages are turned by 
pressing the return (enter) key, and 
you can either page through the entire 
magazine or read the table of contents 
and select an article by its letter. There 
are even some advertisements, but un- 
like a lot of regular computer maga- 
zines on the stands, Mentor’s articles 
aren’t submerged in an ocean of com- 
mercial ballyhoo. 

Once you’ve selected an article to 
read, you can page through it, abandon 
it and select another one, or — if the 
article is written in conjunction with a 
piece of software — actually run a pro- 
gram and get an immediate demon- 
stration of the way it works. (The edi- 
torial column in issue No. 4 lists the 
code for a short animation routine, ex- 
ecutes the routine, and then returns to 
a discussion of what happened.) This is 
the sort of immediate reinforcement 
that educators have been pursuing for 
years. 

Editor Lester regards this ability to 
run programs within the boundaries of 
Mentor as one of the most exciting fac- 
ets of the magazine. He has plans to 
take the magazine’s educational as- 
pects even further by establishing a 
subscriber’s remote bulletin board sys- 
tem, where programming techniques 
and new advances in electronics can be 
discussed in open forum. 

Another advantage Mentor has over 
traditional computer magazines is the 
storage space it saves: Mentor’s hard 
62-inch square boxes take a lot less 
room on the shelf. Given a box roughly 
half the thickness and half the height 
of some of the larger computer maga- 
zines, you can store a lot more maga- 
zines in the same space. Since they 
take less space, subscribers are more 
apt to keep them, which means less ag- 
ony from realizing that a particular ar- 
ticle went out in the trash two months 
ago because the garage filled up. 


Although Mentor is informative and 
many of the programs included with it 
are undeniably useful, the magazine it- 
self is visually unexciting. Advertise- 
ments are simple text blocks, and no 
large headers are used for the articles. 
Inclusion of a few simple graphics — 
even graphics built out of text charac- 
ters to maintain compatibility with 
IBM Monochrome monitors — would 
go a long way towards brightening the 
magazine’s image. , 

This lack of a good visual image is 
one that strikes right at the heart of 
advertising. Most magazines subsidize 
their publishing costs through sales of 
advertising, and major advertisers 
have traditionally been geared toward 
full-page color ads. It remains to be 
seen whether they will tackle display 
screen formats, although the concept 
does bring up some interesting oppor- 
tunities for the future, when advertise- 
ments may consist of full-color ani- 
mated sequences complete with sound. 

One enhancement that Mentor defi- 
nitely needs is some sort of hard-copy 
table of contents. At present the only 
way you can see what is in each issue is 
to mount it in your drive and take a 
look. Perhaps the Mentor people could 
include a large square label for sub- 
scribers to attach to each issue’s box or 
simply print the table of contents on 
the diskette label. 

Minimum system requirements for 
using Mentor are a 64K IBM PC sys- 
tem with a monochrome or color dis- 
play and at least two single-sided 
drives. However, a special PCjr edition 
that requires only one drive is in prepa- 
ration and may be available by sum- 
mer of 1984. The Mentor staff expects 
to be publishing a good deal of PCjr 
software in the coming issues, includ- 
ing color graphics, animation, and en- 
tertainment programs. 

The editors of Mentor have latched 
onto an idea that has almost limitless 
opportunities for software distribution, 
education, and entertainment. It will 
be interesting to watch this diskzine 
over the next couple of years to see how 
the editors and publishers handle their 
myriad challenges. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 





iIRMX-86 for the IBM PC 


Intel’s iRMX-86 operating system for 
the 8086 series of microprocessors is a 
far cry from MS-DOS or CP/M-86. It is 
a real-time, multi-tasking, multi-user 
operating system with an excellent as- 
sembler and linker and an extensive ar- 
senal of classy, optimizing compilers. 
The high-level languages available in- 
clude PL/M-86, 87PASCAL, and 
87FORTRAN—all support the “large 
‘memory model,” reentrant code, direct 
control of the hardware... and, as you 
might have guessed from the names, 
all of the languages fully support the 
8087 numeric coprocessor. 

The Intel assembler, ASM86, is 
powerful, fast, and very polished. The 
macro facilities are solid and extensive; 
the Code-Macro facility is also present 
that allows you to add new opcodes to 
the assembler. A particularly nice fea- 
ture is that you can link your programs 
with either a true 8087 function library 
or an 8087 emulator library without 
changing a word of the source code. 

iRMX-86 has layers upon layers of 
interfaces and features. Your pro- 
grams can talk to the operating system 
through calls to the Nucleus Basic I/O 
System, Extended I/O System, or 
UDI—each level has its own set of ex- 
ecutive services and calling conven- 
tions. An additional layer, the Human 
Interface, contains the command utili- 
ties for formatting and copying disks, 
reading directories, managing files, 
and loading application software. 

With all of this power, of course, 
comes considerable complexity. There 
are about a thousand pages of docu- 
mentation or so just to cover the oper- 
ating system proper, with plenty addi- 
tional for the various language 
translators. Although the documenta- 
tion is clear and well organized, it’s 
heavily slanted toward the high-level 
language users, and the assembly lan- 
guage programmer will find it more 
difficult to extract the critical informa- 
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tion necessary to get programs run- 
ning. I wasted a full day just puzzling 
out the fact that you have to “attach” 
the console input stream but “create” 
the console output stream. The error 
messages that you get along the way 
from the system loader are cryptic to 
say the least. 

iRMX has been independently port- 
ed to the IBM PC by two different ven- 
dors. It is available under the name 
“PC/iRMX” for $2,250.00 from 
Real-Time Computer Science Corp. 
(RTCS), PO. Box 3000, Camarillo, 
CA 93011. It is sold under the name 
“RTOS” for $600.00 by Microware, 
P.O. Box 79, Kingston, MA 02364. 
Both companies include the assembler 
and linker with the operating system, 
but charge you extra for the various 
high-level languages. 

These two products are definitely 
aimed at the pro and are not for the 
casual user. Although it probably only 
took you an hour or so to read the PC- 
DOS manual and get comfortable with 
the system, it will likely take you a 
week to become productive with 
iRMX-86. After porting Laboratory 
Microsystems PC/FORTH to run un- 
der both the RTCS and Microware im- 
plementations, I have conluded that I 
like the Intel operating system and de- 
velopment tools very much but that the 
IBM PC only barely has the horsepow- 
er to make them run properly. You 
certainly should think twice about 
buying iRMX unless your PC has a 
hard disk and the maximum amount of 
RAM. 


Concerning Redirection 


Chet Floyd of Manhattan Beach, Cali- 
fornia, writes: “Perhaps the good Doc- 
tor or a reader can explain a puzzling 
quirk of IBM’s PC-DOS 2.00 in the re- 
direction feature. File redirection 
works perfectly with DOS commands, 
but less perfectly with C and Pascal 
programs that use STDIN. The prob- 


lem occurs when STDIN is redirected 
to a disk file because end-of-file is not 
sensed unless the EOF marker (*Z) is 
explicitly placed in the file. This can be 
easily done, of course, but having to do 
so is an inconvenience, particularly 
since DOS will hang if actual EOF oc- 
curs before the character is read. Con- 
trary to the system documentation, ~“C 
will not recover; the system must be 
rebooted. 
‘For example, 


sort <text.fil 
works swell, but 
myprog <text.fil 


hangs at the end of file unless *Z is 
read as a character from the file. 

“The IBM Pascal manual points out 
that STDIN never returns TRUE for 
EOF unless STDIN is redirected. But it 
seems not to work this way, and, as 
mentioned, C programs suffer the 
same way. Overcoming this problem 
would make the rudimentary piping 
and redirection that PC-DOS offers 
much more usable.” 

Any comments from the MS-DOS/ 
PC-DOS wizards out there? 


C Programming Tools 


C-INDEX+ is a new data manage- 
ment software tool that provides full 
B+Tree ISAM indexing, variable 
length data storage, variable length 
keys, and “virtual memory manage- 
ment” of records. The package comes 
with an interactive tutorial, a detailed 
programming guide with examples, 
and a reference guide by function call. 
C compilers currently supported in- 
clude Lattice C, Microsoft C, Comput- 
er Innovations C-86, and Manx Aztec 
CII. There is no license fee for applica- 
tion software that embeds C-IN- 
DEX +. Object code license is $400.00 
and source code is $2000.00 from Trio 
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Systems, 2210 Wilshire Blvd., Suite 
289, Santa Monica, CA 90403. 

Kurt Klinzing, of Novum Organum, 
29 Egerton Road, Arlington, MA 
02174 was kind enough to send me a 
review copy of his company’s product 
called ““C Building Blocks.” This is a 
beautifully documented, incredibly 
comprehensive set of C function librar- 
ies. The following modules can be pur- 
chased independently: 


¢ C Building Blocks I (string func- 
tions, printer and serial port access, 
directory management, file manage- 
ment, operating system services, and 
video display) $149.00. 


Advanced Building Blocks (field di- 
rected input, window management, 
Julian date conversion, event timers, 
data compression). Requires C 
Building Blocks I also. $99.00. 


Mathematics Building Blocks (trig, 
logs, exponentials, random numbers) 
$99.99. 


Database Building Blocks (B-Tree 
indexes, direct or sequential access 
by key, variable length records) 
$149.00. 


¢ Telecommunications Building 
Blocks (communications port con- 
trol and character I/O, modem con- 
trol including autodial, file transfer 
with Xmodem protocol) $149.00. 


The C Building Blocks are written in 
Lattice C and include all source code. 
I’ve embarked on a rather large appli- 
cation using these libraries, so a more 
detailed review will be forthcoming in 
a later column. 


Savage’s Benchmark Again 


This month we’ll print one last source 
listing for a program that implements 
Bill Savage’s floating-point bench- 
mark, and next month we’ll publish the 
revised, enlarged collection of results. 
Chris Dunford of Columbia, Mary- 
land, writes: “I was interested in the 
floating-point performance/accuracy 
test results published in March and I 
thought I would see just how fast we 
could get an 8087-equipped IBM PC to 
run. The result is the attached 8088/ 
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8087 assembler program (see Listing, 
page 118) which executes in 2.2 sec- 
onds with an error of 3E-10 by your 
measure. I think this is pretty impres- 
sive. The accuracy beats everything in 
the March results chart except the 
IBM 3081, and the performance ranks 
tenth, ahead of such notables as 
HP9000, PDP-11, LSI-11, and some of 
the VAX timings. Here are a few notes 
on the program... 

‘The assembler used was version 1.3 
of Digital Research’s RASM-86, which 
supports 8087 operations (albeit with 
some non-standard mnemonics). Both 
RASM-86 and the code files produced 
by it run under PC-DOS. Clearly, the 
same results could have been achieved 
using the Microsoft Assembler with an 
appropriate set of macros; one such set 
is marketed by Southwestern Data 
Processing in Tucson. I chose RASM- 
86 simply on the basis of speed. 
Strangely, DRI’s debugger, SID-86, 
does not support 8087 mnemonics even 
though the assembler does. 

‘In the interest of brevity, the pro- 
gram contains no code to display the 
final value of ‘A’; a floating point-to- 
ASCII routine would have considera- 
bly lengthened the size of the listing 
(but not the execution time). I deter- 
mined the ‘A’ value using a patched 
version of DEBUG which displays the 
8087 register contents. Timings were 
obtained by adding a routine to count 
ticks of the system timer. This is accu- 
rate to within about “sth of a second, 
give or take a tick. 

“Some readers may take exception 
to the fact that the algorithms em- 
ployed are substantially optimized for 
the problem at hand. For example, 
there is no error checking (no errors 
are possible unless there is a logic flaw 
in the code), and there is no need for 
the tangent function to examine the 
octant of the given angle (they are all 
in the 45-90 degree octant). However, 
it’s my assertion that this remains a 
valid comparison: one of the few re- 
maining benefits of assembler is that 
such optimization is possible. That’s 
what separates assembler code from 
compiler code—it’s designed: for the 
problem being solved and need not 
concern itself with correcting for situa- 
tions that cannot possibly be encoun- 
tered. In any event, I put together a 
version of the program with more gen- 


eralized algorithms and found that the 
timings were substantially the same. 

“T would point out that I am by no 
means an expert in 8087 program- 
ming, and I am certainly not a math- 
ematician. It’s quite likely that the 
program could be made more efficient 
by someone who is well-versed in ei- 
ther. Several of the algorithms in the 
program are perverted versions of 
those presented by Bill Rash in the In- 
tel Application Note AP-113. I should 
also caution readers not to extract 
these algorithms for use in other pro- 
grams unless they are looking forward 
to seeing a lot of unnormals, denor- 
mals, infinities of all shapes and sizes, 
and even the odd not-a-number. The 
routines were specifically written for 
this program and simply will not serve 
as general purpose transcendentals. 

“While I was playing with all this, I 
also put together a test program for the 
p-System. The test runs under the IV. 1 
version as implemented by Network 
Consulting (version clf). I turned off 
the range checking, used the 8087, and 
compiled to native code. Using double 
precision, the test ran in about 14 sec- 
onds and produced the astonishing er- 
ror of 3E-10: the same error as the as- 
sembler program discussed above. My 
hunch is that this is artifact, but at 
least it is reproducible artifact. The 
timing, I think, is quite creditable and 
compares favorably with a number of 
the other compilers for the IBM ma- 
chine. It compares extremely well with 
my famous brand C compiler, which 
took 86 seconds to produce a consider- 
ably less accurate result ... And yes, 
the C compiler supports the 8087. All 
you ‘p-System is too slow’ people take 
note.”’ 

Thanks, Chris, for a very informa- 
tive letter and program. 


BBJ 


(Listing begins on page 118) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 197. 
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16-Bit Listing (Text begins on page 116) 


pagewidth 120 
title ’ DDJ Floating Point Test’ 
noiflist 


: FPTEST. A864 03/14/84 
: IBMPC/8087 DDJ Floating point performance/accuracy test 
; 


; By Christopher J. Dunford 

;  10057-2 Windstreaa Drive 
; Columbia, Maryland 21044 
p< TSOTE 992-9371 
: 
; 


Portions adapted froa: 
"Getting Started With the Nuseric Data Processor“ 
Bill Rash, Intel Applications Note AP-113 


; 

; 

; 

; Prograe perforas the following C equivalent: 

§ 
;  main() 

Bo 

j unsigned i = 2499} 

j double a = 1, tan(), atan(), exp(), log(), sqrt()} 
§ 
: 
; 
; 
; 


sor 1 fis) 
a = tan(atan(exp(log(sqrt(ata))))) + 1.03 


} 

cseg 

main: 

paren Initialize 8088 
0000 IE push ds ; Set up long ret to DOS 
0001 2BC0 sub ax, ax 
0003 50 push ax 
0004 BB0000 R mov ax, data ; Establish data addressability 
0007 8ED8 mov ds, ax 
0009 BIC309 mov cx, 2499 ; Loop counter 


een Initialize 8087 NDP 


Q00C 9ODBE3 fninit NDP reset 


OOOF 90D93E0000 = R 
0014 B1OEO000000C R 
OO1A 9BD9ZE0000 = 
OO1F 9BDB2E0400 = =R 
0024 9BDBZEQEOO = R 
0029 9BD9EB 


002C 9BDCC8 
002F 9BDIFA 
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bigloop: 


fnstcw control 
or contro] ,OCOOH 
fldcw control 
#1d80 hal¢_a_pi 
#1d80 gtr_pi 
f1di 


Main test loop begins here 


faul st0,st0 
fsqrt 


8 
’ 
8 
’ 


Set rounding acde to chop 


Load a constant pi/2 
And a constant pi/4 
Initialize A to ! 


Aah 
sqrt (A#A) 


ST 
ST 

(Continued on page 120) 
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OPT-TECH SORT™ | 


SORT/MERGE program for IBM-PC & XT 


Now also sorts dBASE II files! 
Written in assembly language for high performance 
Example: 4,000 records of 128 bytes sorted to give 
key & pointer file in 30 seconds. COMPARE! 
Sort ascending or descending on up to nine fields 
Ten input files may be sorted or merged at one time 
Handles variable and fixed length records 
Supports all common data types 
Filesize limited only by your disk space 
Dynamically allocates memory and work files 
Output file can be full records, keys or pointers 
Can be run from keyboard or as a batch command 
Can be called as a subroutine to many languages 
Easy to use, includes on-line help feature 
Full documentation — sized like your PC manuals 
$99 —VISA, M/C, Check, Money Order, COD, or PO 
Quantity discounts and OEM licensing available 


To order or to receive additional information 
write or call: 


OPT-TECH DATA PROCESSING 
P.O. Box 2167 Humble, Texas 77347 
(713) 454-7428 
Requires DOS, 64K and One Disk Drive 


Circle no. 56 on reader service card. 


C COMPILER 


e FULL C 

e UNIX* Ver. 7 COMPATABILITY 

e NO ROYALTIES ON GENERATED CODE 

© GENERATED CODE IS REENTRANT 

e C AND ASSEMBLY SOURCE MAY BE INTERMIXED 
¢ UPGRADES & SUPPORT FOR 1 YEAR 

C SOURCE AVAILABLE FOR $2500 


HOST 6809 PDP-11*/LSI-11* 8080/(Z80) 8088/8086 
TARGET TARGET TARGET TARGET 


FLEX*/UNIFLEX* 
Os-9* 500.00 500.00 


RT-11*/RSX-11* 200.00 “VOR | 
Scidaoan Pe 350.00 uy | ae 


CP/M* 200.00 “Hisar. 
8080/(Z80) 500.00 


PCDOS*/CP/M86* 200.00 “Voi | 

a 350.00 oat 
*PCDOS is a trademark of IBM Corp. MSDOS is a trademark of MICROSOFT. 
UNIX is a trademark of BELL LABS. RT-11/RSX-11/PDP-11 is a trademark of digital 
Equipment Corporation. FLEX/UNIFLEX is a trademark of Technical Systems 


consultants. CP/M and CP/M86 are trademarks of Digital Research. OS-9 is a 
trademark of Microware & Motorola. 


408-275-1659 


TELECON SYSTEMS 
1155 Meridian Avenue, Suite 218 
San Jose, California 95125 


Circle no. 73 on reader service card. = ~—»> 


HOW FAST WOULD THIS PROGRAM RUN 
IF IT WERE COMPILED USING YOUR PASCAL COMPILER ? 


PROGRAM SIEVE; 
{ THE ERATOSTHENES’ SIEVE BENCHMARK } 


CONST SIZE = 8190: 

TYPE BYTE = 0.255: 

VAR |. PRIME, K. COUNT, ITER : INTEGER: 
FLAGS : ARRAY [ 0..SIZE ] OF BOOLEAN: 


BEGIN 
WRITELN( ‘START’ ): 
FOR ees = 1 T0 10 DO BEGIN 


= 0; 
i TO SIZE DO FLAGS | ] := TRUE: 
FOR | -0T08I ZE DO 
IF FLAGS |THEN BEGIN 
PRIME := 1+ 1+ 3; 
K := | + PRIME; 
WHILE K< = SIZE DO BEGIN 
K ] := FALSE: 


SBB Pascal 


MS-Pascal 


Chances are, not as fast as it would if it were compiled 
using SBB Pascal. 


As the following benchmarks show, SBB Pascal 
outperforms all other Pascal compilers for the PC in terms 
of speed, code size and .EXxE file size: 


Execution Code EXE File 
Time Size Size 
(secs) 


10.90 181 4736 


11.70 229 27136 


Pascal/MT+ 86 14.70 294 10752 


END; 
COUNT := COUNT + 1 


ate: Turbo Pascal 15.38 288 9029 


END; 
WRITELN( COUNT, ‘PRIMES’ ) 
END. 


Development Package 
$350.00 


Software 
Building 
Blocks™ 


Personal Use Compiler Package 
also available 
$95.00 


Call for free brochure with full benchmarks. 


607/272-2807 


Software Building Blocks, Inc. 
Post Office Box 119 
Ithaca, New York 14851-O0N9 


SBB Pascal is a trademark of Software Building Blocks, Inc. MS-Pascal is a trademark of Microsoft Corporation. Pascal/MT + 86 is a trademark of Digital Research, Inc. 


Turbo Pascal is a trademark of Borland International. 





1 6-Bit Listing (Listing Continued, text begins on page 116) 


0032 9BD9ED 
0035 9BDICY 
0038 9BD9F! 


O0O3B 9BDIEA 
OOSE 9BDECI 
0041 9BD9E8 
0044 9BDIEO 
0047 9BD9C! 
004A 9BDIFC 
004D 9BD9CA 
0050 9BDBE2 
0053 9BD9FD 
0056 9BD9FO 
0059 9BDEE! 
005C 9BDCCE 
QOSF 9BD9FD 
0062 9BDDD9 


0065 9BDIEB 
0068 9BD9CI 
O06B 9BDIFS 
O06E 9BDBE2 
0071 9BDIEO 
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20 wee Se we Se we 


we *28e28 we S6e w«e Se we “8a «oe “*e we 


sehneneete Coapute tinisorttatnl)): <-ocsseeeoss9< ee 

The NDP does all of its logs and exponentials in base 2. 

Thus we aust compute In(x) indirectly using the identity 
In{x) = In{2) # log2(x) 

Fortunately, In(2) is available as an NDP constant. 

In this and all following, ‘gq’ is the current value of Aj 

at this point, q is sart(A#A), 


fidin2 ; ST = In(2) 
#xch ; ST = g} ST(1) = In(2) 
fyl 2x 3 STeln(2)#log2(q) = In(q) 
pais Compute-eeptiniagrt (atal)? Seen -on on oenn enone anemone n= 


A bit tricky because the only exponential functions available are: 
y = 2*x, where x is an integer (FSCALE), and 
y = (2%%) - 1, where 0 <= x <= 0.5 (FY2XM1). 
We have to split the exponent into several parts and construct the 
final result from the partial results. Again, the NDP works only 
in base 2, so we aust use the identity: 
e*x = 2*(x#]loq2(e)) 
The algoritha also uses the identity: 
x*(ytz) = x“*y # x%2z 
In the following, f is the fractional part and i the integral part 


of gtlog2(e). See the reference for a similar routine (pp. 42-43). 


fldi2e ; Load constant log2(e) 
f@ul ; ST = gtlog2(e) 
fidi 
fchs i st #1 
fld st! ; ST = gtlog2{e)3 ST(1) = -1§ ST(2) = ST 
frndint ; ST = int(gtlog2(e)) = 1 
fxch st2 § ST = gtlog2(e)} ST(2) = 1 
fsub st, st2 ; ST = frac(atlog2(e) = ¢ 
fscale >; ST = f/2 ([f#(2*-1)] 
f2xal ; ST = 2“(#/2) - | 
fsubr — «§ ST = 248/205 STL) = 
faul st0,std 3 ST = 2°(f/2) # 2*(¢/2) = 2*F 
fscale 3 ST = 2*(gtlog2(e)) = exp(q) 
fstp stl ; Dump one stack level 

eject 

eeaa Compute atnlexp(In(sort (ata)))) -neeeneennnnneene-- 


The available function is ST = atn(STi/ST), where 

ST(1) < ST. This implies that we aust always take the 
atn of n where 0 <n ¢ 1} however, the test requires 

atn of 1 <= n <= 2499, Help is available in the fora of 
atnin) = pi/2 - atn(i/n). We'll take the atn of 1/x and 
subtract the result from pi/2. 


fld! 5 ST = 15 STIL) = Qq 

fxch 5 ST = q3 ST(1) = 1. 

fpatan ; ST = atn(1/q) 

fsub st0,st2 3 ST = atn(l/g) - pi/2 = -atn(q) 
fchs 5 ST = atn(q) 


a AS eel 
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Compute tan(atn(exp(In(sqrt (ata) )))) 


} Too bizarre to describe here. See the above reference, p.58ff, 
) The adaption is rather highly optimized for this test. 


0074 9BD9FS fpre 5 ST = q MOD pi/4 
0077 9BDB8E9 fsubr st0,st! 5 ST = pi/4 - (q MOD pi/4) 
007A 9BD9F2 fptan 5 Compute partial tangent 
007D 9BDEF! fdivr } Compute final tangent 
[; oo End of loop. Add ! to A and loop back 
0080 9BD9E8 fldi » ST = 13 STU) =A 
0083 9BDEC! fadd ; STZ A+! 
0086 E2A4 002C loop bigloop 
0088 CB retf 
~—— Data area ----------------------------------------------- 
dseg word 
0000 control rw fl } NDP control 
0002 status rw i } NDP status 
0004 35026821A2DA half_a_pi dw OC235H, 02168H, ODAA2ZH, OC90FH, O3FFFH 5 80-bit pi/2 
OFCOFF SF 
OOOE 35026821A2DA qtr_pi dw OC235H, 02168H, ODAAZH, OC9OFH, O3FFEH 5 80-bit pi/4 
OFCOFESF 
end main 


END OF ASSEMBLY. NUMBER OF ERRORS: 0. USE FACTOR: 


0% 


End Listing 








LATTICE. 


. Compilers 


“My personal preferences are Lattice C in the top category for its 
quick compile and execution times, small incremental code, best 
documentation and consistent reliability; .. .’’ 

BYTE AUG. 1983 

R. Phraner 
~... Programs are compiled faster by the Lattice C compiler, and it 
produces programs that run faster than any other C compiler avail- 
able for PC-DOS.”’ 




























PC MAGAZINE JULY 1983 
H. Hinsch 


~... Microsoft chose Lattice C both because of the quality of code 
generated and because Lattice C was designed to work with 
Microsoft's LINK program.”’ 

PC MAGAZINE OCT. 1983 

D. Clapp 


“Lattice is both the most comprehensive and the best documented of 
the compilers. In general it performed best in the benchmark tests.” 
PERSONAL COMPUTER AGE NOV 1983 
F. Wilson 


“This C compiler produces good tight-running programs and pro- 
vides a sound practical alternative to Pascal.” 

SOFTALK AUG 1983 

P. Norton 


“... the Lattice compiler is a sophisticated, high-performance pack- 
age that appears to be well-suited for development of major applica- 
tion programs.” 

BYTE AUG 1983 

Houston, Brodrick, Kent 


To order, or for further information 
on the LATTICE family of compilers, call or write: 


LATTICE, INC. — 
P.O. Box 3072 
Glen Ellyn, IL 60138 F 
(312) 858-7950 TWX 910-291-2190 
eee 









Circle no. 36 on reader service card. 
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Come to us for your state-of-the-art FORTH 
needs! Announcing the latest additions to the 
UNIFORTH family: 


16-bit Z8000, 68000, 16032 
32-bit 80186, 68000, 16032 


Obtain these stock items captured under tradi- 
tional operating systems, or try our DB16000, 
Slicer and CompuPro stand-alone versions. Com- 
plete compatibility is retained throughout the 
UNIFORTH product line (from the Commodore 64 
to the VAX). 


Features include software floating point, video 
editor, full macro assembler, debugger, decom- 
piler, top-notch documentation, etcetera. Prices 
start at $175. Call or write for our free brochure. 


Unified Software Systems 


P.O. Box 2644. New Carrollton. MD 20784. 301/552-9590 


DEC, VAX,PDP,RT-11,RSX-11 (TM) Digital Equipment Corp; CP/M (TM) 
Digital Research; MSDOS (TM) Microsoft; VIC-20 (TM) Commodore. 


Circle no. 74 on reader service card. 
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OF INTEREST 


Michael Wiesenberg 





Give Me Your Phone 
Number 


There are probably lots of vendors who 
wonder each month why their particu- 
lar product or service goes unnoticed 
by this column. Let me explain in part 
how material for this column is fil- 
tered. DDJ receives literally hundreds 
of press releases each month. Before I 
even see the stack, someone usually 
culls announcements of the appoint- 
ment of Sharon Apartment as Vice 
President of Marketing of Plastic Fan- 
tastic Diskettes and of the move of Hi- 
tek Analytic Engines from Palo Alto 
into their newly expanded facilities in 
Milpitas. I sift through the remaining 
dross for gems that I hope will be “Of 
Interest.” 

I almost automatically reject an- 
nouncements of products unaccompa- 
nied by price because I figure if a com- 
pany doesn’t want to let people know 
how much its widget costs before a 
prospective customer sends an inquiry, 
the product must be overpriced. I also 
rarely use a product description sent 
by a company that doesn’t list its 
phone number. I’m trying to look out 
for the readers, and I think a company 
that doesn’t want phone calls has no 
intention of supporting its products. If 
I receive a press release that looks as if 
it were written by a grade school drop- 
out, I also usually pitch it, my reason- 
ing being that a company that can’t 
take care in writing press releases 
probably does indecipherable docu- 
mentation and is likely to take less care 
in the design of its products. 

So there you have it. Maybe my con- 
clusions are unwarranted, but that’s 
how I operate. Companies that want 
attention should give me a phone num- 
ber and tell me how much the product 
costs. They shouldn’t attempt to hide 
the product’s deficiencies behind a lot 
of overblown puffery. (I’m a technical 
writer by trade; I see through that 
stuff.) And if they can’t write decent 
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English, they should hire someone who 
can to write the release. 


Don’t Be Embarrassed in 
Spanish 


El Ortografico, from Ibersoft (good 
name!), is the first-ever spelling check- 
er for the Spanish language. It also 
checks for proper accents and lets you 
look up on-line the conjugation of most 
verbs. It also verifies your corrections 
as you enter them. You can use this 
speller with any word processor that 
stores text in ASCII, and you can cus- 
tomize for your word processor the 
unique characters of the language. If 
your word processor cannot represent 
the special characters, El Ortografico 
also has a utility program that permits 
printing them (if your printer is able to 
do so). The program runs on TRS-80 
Models I, III, and 4, CP/M, PC-DOS, 
and MS-DOS, and will soon be avail- 
able for Apple II. Sounds like a great 
product for $99.95. Reader Service No. 
101. 


Spell 1000 Times Faster 


Since there seems to be interest in 
TEX and since it appears that a num- 
ber of you have HP computers or use 
them on the job, I offer the following. 
JDJ Wordware offers JSPEL/1000 
for RTE-6/VM and RTE-A operating 
systems on HP 1000 computers. It fea- 
tures high-speed performance (in ex- 
cess of 30,000 words per minute) by 
word caching. It generates almost in- 
stantaneously up to 10 correction can- 
didates for what it considers an error. 
You merely enter the number of the 
correction you wish, and JSPEL makes 
the replacement. Each error is dis- 
played in place in the line where it oc- 
curs, and you can generate a 20-line 


window of context around the suspect 
word by typing one letter. 

JSPEL uses multiple dictionaries: a 
27,000-word main dictionary that you 
may expand indefinitely, an incremen- 
tal dictionary to store new words you 
wish to add to the main dictionary, and 
a customized dictionary that can be 
specific to a particular file—contain- 
ing, for example, computer acronyms 
for a document about computers. 
JSPEL detects adjacent repeated words 
words. (It would have corrected that 
last sentence for me.) It can be used in 
look-up mode to find any words, and 
the search patterns can include any ar- 
bitrary selection of several kinds of 
wild cards. You TEX users will be 
pleased to know that JSPEL ignores 
TREX code sequences. The program 
supports the new hierarchical file sys- 
tem. A relocatable license costs $625, 
and source is $1500. You then can get 
software support for $20 a month and 
manual update service for $5 a month. 
The reference manual alone is $15. 
Reader Service No. 103. 


TeEXies Meet 


The TpX User’s Group will meet at 
Stanford August 13-24, during which 
two courses will be offered in the use of 
TEX: Book Design Utilizing TEX on 
the 13th and 14th, and TEX for Begin- 
ners August 20-24. Write to TUG care 
of the American Mathematical Soci- 
ety. Reader Service No. 105. 


Plastic Seat Covers for 
Keyboards 


Have you seen those tacky plastic seat 
covers people use in their homes when 
they don’t want anyone to get their 
precious couches and chairs dirty? 
Now you can get them for your com- 
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puter’s keyboard, in case you’re the 
kind likely to spill coffee on it. Safe- 
skin is molded to fit a particular key- 
board like a glove and to remain in 
place during use. It has tactile ““home- 
row” and numeric character locators 
and is made of antistatic polymer, 
through which you can see easily key 
tops and side markings. Merritt Com- 
puter Products sells them for IBM PC 
and compatibles, Apple Ile, TI Profes- 
sional, TRS-80, Televideo, and Wang 
keyboards; they cost $29.95. Reader 
Service No. 107. 


Z-100 Memory and Storage 


PIICEON has a 256K memory board 
for Zenith Z-100 at $750; a 1OMb 
Winchester drive, the ZD 100-10, for 
$1795; and a 20Mb drive, the ZD 100- 
20, for $2285. All come with software 
and all necessary cables and connec- 
tors and are compatible with all levels 
of Z-DOS. PIICEON also has memory 
and disk upgrade kits for IBM PC and 
Alpha Microsystems. Reader Service 
No. 109. 


Hang a PC on your Model 
100 


If you own a Radio Shack Model 100 
computer (and sales figures for the lit- 
tle portable indicate that it can’t be 
just computer-magazine writers who 
have been buying it), you might be in- 
terested in a program that lets the 
Model 100 use the disk storage of an- 
other computer. Disk + from the Por- 
table Computer Support Group in Dal- 
las is supplied in two pieces—part on 
cassette for the Model 100 and part on 
disk for the other computer: currently, 
the IBM PC and most MS-DOS ma- 
chines, Radio Shack computers, Apple 
II, Ile, 11+, Olivetti ETV 300, M20 
and M24, and some CP/M computers. 
You select Disk+ from your Model 
100 RAM file menu, and the menu 
turns into a disk menu showing the 
files on your other machine. You can 
then pull files into Model 100 RAM 
from disk or save RAM files to disk at 
up to 19200 baud; your large computer 
has become a peripheral for your Mod- 
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el 100. You can also create and manip- 
ulate disk subdirectories to handle 
groups of files at one time. Disk+ 
costs $69.95 and requires a serial cable 
with a null modem (unless you use the 
Model 100’s internal modem; not rec- 
ommended, since you'll be limited to 
300 baud disk accesses). One caveat: 
this thing uses 9K of the Model 100’s 
limited RAM. Reader Service No. 111. 


Your China Trip 


If you’re planning to be in Xiamen to- 
ward the end of November you should 
check out Computer China ’84, an exhi- 
bition introducing the latest micro and 
minicomputer technology to the people 
of the People’s Republic. It seems that 
the personal computer revolution is 
catching fire in China, with grass-roots 
microcomputer associations and user’s 
groups springing up in the provinces. 
There are only about 40,000 micros in 


China today, including single-board 
computers, but Adsale Exhibition Ser- 
vices, which is coordinating overseas 
vendors and exhibitors, expects a good 
turnout for the exposition-plus-confer- 
ence. Reader Service No. 113. 


Price Cut at the Co-op 


CPMUG, the CP/M User’s Group, has 
cut the prices for its volumes of CP/M 
software. In case you were unaware, 
CPMUG’s been running a huge soft- 
ware exchange program for some time 
now, some 100 volumes of CP/M soft- 
ware of mixed quality, including every- 
thing from source-code interpreters 
and compilers to games and printer 
pictures. They sell it in bulk, like wheat 
germ at the co-op, on 8-inch IBM or 
54-inch Kaypro double-density single- 
sided, Epson QX-10 double-density 
double-sided, Apple 16-sector, and 
North Star double- or quad-density 


GET “C” APPLICATIONS OFF TO A FLYING START 


(. TRE TM 


RECORD MANAGEMENT 
SUBSYSTEM 


F Le 
ify * Automaesa est 


ordering information 
SINGLE UNIT LICENSE 
$99 per program plus shipping. 
Format 5'% Disk MS-DOS 


Compatible Linkable 8086-file 
format modules for Lattice-C 
Compliers, others soon. 
Complete documentation. 


Telephone Orders Accepted 
Visa/Mastercard 


(312) 476-8356 





gE" 


er wg 
2 La €C-SORT ™ 
eon 


bill TL. GE 
ee BSYSTE 
‘ uss nced Quick/Tournament 





: sbit B- Tree or sd uer tial Files 


rae Number/Type 
Of Field 
\ \# Select Records According To 
~~~ User-Specified Criteria 
reates Tag (Index) Sorting File 
¢ Automatic Interface To B-Tree 


SOURCE CODE OPTION 
$249 per program plus shipping. 
“C” Source Code is also available: 
requires license. A credit is 
allowed for object license 
purchased previously. 


MULTIPLE COPY OPTION 
Multiple copies of object code 
may be made with this license at a 
very low unit cost. 


AccuData Software 
Dept. T-6 
P.O. Box 6502 
Austin, Texas 78762 
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disks. They cut the price from $13 to 
$10 for 8-inch disks and from $18 to 
$15 for 54-inch disks; that’s for the 
U.S., Canada, and Mexico. They 
dropped the corresponding prices for 
other destinations from $17 to $13 and 
from $21 to $18, respectively. CPMUG 
will send you a catalog for $10 ($15 for 
you non-North Americans). Reader 
Service No. 115. 


CP/M Calling CP/M 


Softcom Telecommunications Utility 
for CP/M, from The Software Store, is 
a terminal emulator for mainframe 
time-sharing systems; it downloads 
files from a host system, sends text 
from your disk to, they claim, “‘almost 
any type of computer,” and exchanges 
any type of file with other Softcom sys- 
tems. The intelligent terminal mode 
transfers data at up to 9600 baud in 
full or half duplex and supports the 
XON/XOFF protocol. You need an 
8080, 8085, or Z80 CP/M system, with 
at least 32K, and $150. Reader Service 
No. 117. 


Half a Board Is Better 
Than... 


One of the first in the race for add-ons 
for the IBM PC Portable is Ven-Tel 
with their PC Modem Half Card, a 
1200/300 baud, auto-answer, auto- 
dial internal modem, for $549. Since 
the Portable has only half-sized expan- 
sion slots, only boards of this size fit 
inside the computer. Apparently modi- 
fied from their Half Card modem for 
the PC-XT, the Half Card comes with 
CrossTalk-X VI, instructions, and a 
phone cable. Reader Service No. 119. 


Hinkey Dinkey Disk-a-Do 


If you have diskettes scattered all over 
the top of your desk gathering dust and 
soaking up electric fields, you need 
Disk-a-Do diskette storage units from 
Information Concepts. These rotating 
lazy-Susan units are made of molded 
black ABS (what’s that?) supported on 
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a steel base plate with ball bearings. 
They have stenciled slot index numbers, 
and the first slot has a printed index 
directory card. Model 60 holds 60 dis- 
kettes and costs $74.95. Model 60C 
holds 60 and has a bronze acrylic dust 
cover cabinet with a window toward 
which you rotate the unit until the dis- 
kette you want appears; it costs $99.95. 
There’s also a 120C that holds 120 dis- 
kettes and has the cover, but they ne- 
glected to tell us the price. Add $2 p&h 
per unit. Reader Service No. 121. 


Where’s the Widower? 


I’m waiting for a lot of irate letters 
from feminists on this one. The Com- 
puter Widow Tee Shirt from Crab- 
apple is, they say, ‘an ideal gift for 


that wife or girl friend who thinks you 


spend too much time computing. [It] 
features white high tech lettering on an 
all black fabric and is a perfect way to 
compensate for all those evenings you 
spent at the keyboard.” $9.95 plus $1 
p&h. Reader Service No. 123. 


IBM Recalls Everything 
(Except IBM) 


IBM (Incredibly Big Manufacturer) 
has announced, through its wholly 
owned subsidiary, the United States 
Government, a recall on all privately 
held personal computers, citing a de- 
fective connector that could disinte- 
grate during normal operation, releas- 
ing deadly dimethyltryptamine gas. 


‘(Bonuses will be paid those turning in 


plug-compatible look-alikes.) Recalled 
computers will be replaced at no cost 
with IBM PCjrs that have been modi- 
fied to accept only IBM software. (All 
so-called compatible software will self- 
destruct in these special machines.) 
Naturally these jrs are compatible 
with no other IBM products (or any- 
thing else). In other news, IBM is ru- 
mored to be planning a midyear four- 
fold increase in the prices of all PCjr 
software. Reader Service No. 
3.141592654. 





Contact Points 


Adsale Exhibition Services, 21/F, 
Tung Wai Commercial Building, 109- 
111 Gloucester Road, Wanchai, Hong 
Kong; 5-8920511 (phone); 63109 AD- 
SAP HX (Telex). 


American Mathematical Society, Box 
6248, Providence, RI 02940; (401) 
272-9500, ext. 232. 


Ariel Corporation, 600 West 116th 
St., New York, NY 10027; (212) 662- 
7324. 


CP/M User’s Group (CPMUG), 1651 
Third Avenue, New York, NY 10028. 


Crabapple, Inc., Box 3236, Framing- 
ham, MA 01701; (617) 877-9242. 


Ibersoft, Box 3343, Trenton, NJ 
08619; (609) 890-1496. 


Information Concepts, Inc., Box 462, 
Stone Mountain, GA 30086; (404) 
979-8479. 


JDJ Wordware, Box 354, Cupertino, 
CA 95015; (415) 965-3245. 


Merritt Computer Products, Inc., 
2925 LBJ Fwy., Suite 180, Dallas, TX 
75234; (214) 942-1142. 


PIICEON, 2114 Ringwood Ave., San 
Jose, CA 95131; (408) 946-8030. 


Portable Computer Support Group, 
11035 Harry Hines Blvd., #207, Dal- 
las, TX 75229; (214) 351-0564. 


TEX User’s Group: see American 
Mathematical Society. 


The Software Store, 706 Chippewa 
Square, Marquette, MI 49855; (906) 
228-7622. 


Ven-Tel, Inc., 2342 Walsh Ave., Santa 
Clara, CA 95051; (408) 727-5721. 


BBL 
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80 CHARACTER VIDEO BOARD 
e WORDSTAR/dBASE II OPTION 
e TYPE AHEAD KEYBOARD BUFFER 


e 25 LINE NON-SCROLL OPTION 

e Z80 CPU and 8275 CRTC _  S-100 

¢ CHARACTER GRAPHICS 

e ADAPTABLE SOFTWARE 

e ORDER ASSEMBLED & TESTED OR 
PRE-SOLDERED (ADD YOUR IC’s) 


VDB—A2 bare board from $49.50 


Simpliway PRODUCTS CO. 
(312-359-7337) 


P.O. BOX 601, Hoffman Estates, IL 60195 
add $3.00 S&H, 3% for Visa or Mastercard 
Illinois Res. Add 6% Sales Tax 
WORDSTAR is a trademark of MicroPro INTERN’L CORP. 
dBASE is a trademark of ASHTON-TATE CORP. 
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Get the power of your Z80, and the elegance 
of direct access to CP/M functions 
from your high level programs with 


SYNLIB utility library 


SYNLIB consists of MICROSOFT compatible object 
code that may be called from any high level language 
that uses MICROSOFT parameter passing conventions. 


SYNLIB gives you extremely powerful array and buffer 
manipulation using the Z80 LDIR instruction; program 
access to the CP/M CCP console command line; high 
speed disk block I/O; a high quality random number 
generator, hex to ASCII conversion optimized by special 
280 instructions; program chaining; and more. 


And, because our programmer abhors a vacuum, each 8” 
floppy comes packed with some of the most valuable 
public domain software, including available source, ab- 
solutely free. You get SWEEP, a menued disk utility that 
makes a computer phobe a systems programmer, 
UNSPOOL, so you can print and use your computer 
without buying an expensive buffer; /, to get multiple 
commands on a line; MODEN7, so that you too can join 
the free software movement; and many others. 

SYNLIB $50.00 8” SSSD CP/M format 

SOURCE: $100.00 
Licensing for commercial use available. 
SYNTAX CONSTRUCTS, Inc. 
14522 Hiram Clarke, Houston, Texas 77045 
(713) 434-2098 


CP/M is a registered trademark of Digital Research, Inc. 
Microsoft is a registered trademark of Microsoft Corp. 
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SMALL-C 2.0 


for 
THE IBM PERSONAL COMPUTER 


and 
MS-DOS COMPATIBLE SYSTEMS 


A large subset of C, packed from argc to 

xtoi () with features, including 
1/0 redirection, compilation by parts, peephole optimization, 
assembly language interface, conditional compilation, 
switch/case/ default, command line support, completion codes, 


initialization of global variables, data types-char, int, 
pointers, one-dimensional arrays, and externals 


Complete source code for the compiler and 
libraries plus a 22 page user manual are 
included. 


Requires: 
IBM PC assembler, ASM.EXE, or equivalent 
IBM PC-DOS 2.0, 2.1 or MS-DOS 2.0 
96K memory and a SS Disk Drive 


Send $35 check or money order to 


The Coriolis Company 

P.O. Box 76 

Clinton Corners, NY 12514 

(NY residents please add 5% for sales tax.) 


Executes sieve benchmark in 35 seconds! 


Circle no. 19 on reader service card. 









CGRAPH 
DEVICE INDEPENDENT 
GRAPHICS SOFTWARE 


¢ Vectors 
¢ Character generator 
¢ Windowing and clipping 
* Re-entrant and re-interruptible 
¢ Multiple simultaneous windows 


Graphics programs independent of physi- 
cal display, drives many displays at once. 
Completely documented in clear English 
with examples. Typical device drivers pro- 
vided for hardware, including EPSON print- 
ers. Shipped as C SOURCE CODE on 8” 
SSSD CP/M or 514” MS-DOS disk. Specify 
standard (K&R) or BDS C version. Ask for 
availability for other operating systems or 
media. Send check for $49.95 to 


Systems Guild Inc. 


P.O. Box 1085, Cambridge, MA 02142 
617-451-8479 
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MATH 


SUBROUTINE 
LIBRARY 


503/884-3023 


AE Memmi ete mutt: 3 
Subroutines for use with your FORTRAN 
programs. 


Over sixty subroutines of 


FUNCTIONS INTERPOLATION 
INTEGRATION LINEAR SYSTEMS 
MATRICES POLYNOMIALS 
NON-LINEAR SYSTEMS DIFFERENTIAL EQ 


Versions available for several FORTRAN 
compilers running under CP/M-80 and MS-DOS 
(PC-DOS). 


Cost, $250. 
Manual available, $25. 


microSUB: MATH 


foehn consulting, PO Box 5123, Klamath Falls. OR 97601 


CP/M and MS-DOS are trademarks of Diqita 
and MicroSoft Corp respectively 
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PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


I 














DYNAMIC RAM 













256K 150 ns $48.99 
64K 200 ns 5.44 
64K 150 ns oat 
64K 120 ns 6.80 
16K 200 ns Van 
EPROM 

27256 250 ns Call 

27128 250 ns $26.40 
2764 200 ns 10.65 
2732 450 ns 5.40 
2716 450 ns 3.60 

STATIC RAM 






5565P-15 150 ns $39.97 
6264LP-15 150 ns 39.97 
6116P-3  150ns 6.36 












MasterCard/VISA or UPS CASH COD p 
Factory New, Prime Parts 4F Oo 
MICROPROCESSORS UNLIMITED 


24,000 South Peoria Ave 
BEGGS, OK. 74421 (918) 267-4961 


Prices shown above are for May 17, 1964 
Please call for current & volume prices. Prices subject to change. Please expect higher 


Insurance extra ash 
some parts due to world wide shortages. Ship and 
Geka prices Gown Small orders received by 6 PM es? can usually be delivered to 


you by the next morning, via Federal Express Standard Air @ $5.99! 
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Real-World 
Applications 


Are you interested in: 







eMeasurement and control? 
eHardware construction? 
¢Optoelectronics? 
eInterfacing to external 
devices? 
Low cost robotics? 
eStepper motors? 
eHKEPROMs? 











The Computer Journal 


is a magazine for those who interface, 
build, and apply micros. Subscription 
price $24/year in the U.S. (12 issues). 


PO Box 1697D Kalispell MT 59903 
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SAL/80® and SAL/86™ 


do for assembly language what 
RATFOR does for FORTRAN 
but emits 
OPTIMALLY DENSE code. 
SAL/8X includes console I/O 
primitives which trivialize the task of 
writing complex interactive user 
interfaces. Improves programmer 
productivity by a factor of two and 
program maintainability by an order 
of magnitude. 
Extensively documented, available 
forall CP/M compatible disk formats. 
SAL/80 version 2.1, $59.00, requires 
64K and MAC or RMAC. 
CALIFORNIA RESIDENTS ADD 6% SALES TAX. 
PROTOOLS® 
“Software Tools hor the Professional’ 
24225 Summerhill Avenue 
Los Altos, CA 94022 
(415) 948-8007 
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Micro-Math™ Only $69 


Mathematical programs for the 6800/6809/ 
8080/8085 (Z80 compatible) microprocessors. 
Source code in standard assembler mnemon- 
ics. These 8%x11’’ program books include 
full documentation and descriptions for: 
Fixed/Floating Point Arithmetic, Data Con- 
version/Manipulation, Square Root, Loga- 
rithms, Exponentiation, Trigonometric/ 
Hyperbolic functions including inverses, and 
more. 


ORDER: *6800 (90 pages) $39 + $3 s/h 
*transcendentals not included 
6809 (530 pages) $69 + $5 s/h 
8080 (580 pages) $69 + $5 s/h 
Send check or money order. WA residents 
must add 7.8% to base price. 


WANT MORE INFO: Send $2 for 10-page brochure. 


Micro-Math is distributed under copyright. Fee re- 
quired for right to distribute Micro-Math based prod- 
ucts in machine form. 
F.N. Vitaljic Co. 
514-13th St., Bellingham, WA 98225 
(206) 733-3896 
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@A>DBPACK: Information Manager -- Great for 
Mailing Lists, Form letters, Tabulation and 
organizing data. Supports query, sort/search oni 
multiple keys, report generation and many§® 
other data base functions. $115/$25. 


: A>COMCOM: Communication program. Up-§ 
loads/Downloads files, and more. $95/$15. 


@A>CPMCPM: Transfers files (any type) betweenif 


CP/M computers with incompatible disks.§ The Writer’s Really Incredible Text Editor 
$65/$10 includes copy for each computer.— lives up to its name! It's designed for 
A>FILER: Archives, Sorts and Catalogs files creative and report writing and carefully 


with substantial disk -space savings. $49. protects 


@A>BASXREF: Alphabetizes and Cross-refer- 
ences variables vs. line numbers in BASIC pro- 
grams. Simplifies program maintenance. $39. 
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A>UNERA: Recovers erased files. $29. ; changed. Detailed manual included. 
CP/M is a registered trademark of Digital Research, Inc. # WRITE is $239.00. 


Available in most disk formats. WORKMAN & ASSOCIATES 


Clearly written and indexed manuals included. 
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All packages returnable in 15 days. 
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COHERENT" IS SUPERIOR TO UNIX" 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn’t just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 

capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT: 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and Tecmar, Davong 
and Corvus hard disks. 

Available now. For additional information, call or write, 
Mark Williams Compan 


y 
1430 West Wrightwood, Chicago, IJlinois 60614 
312/472-6659 


Mark 
(i) Williams 
Company 


COHERENT is a trade mark of Mark Williams Company. 
*UNIX is a trade mark of Bell Laboratories. 


Circle no. 75 on reader service card. 





REET ETT TT 


aera teaianintined icuies incimeieiennemmeital 


ee ec a aC ee 


eae a ee ee er eec 


SVSTEM DIiakx 


Serial Noe: 1OO000O% 
Format: tM Pc. <T 
MPUeOsS 2:0 


Versior 1.0 
FE TOON TATE 
=) Qhnt IGBA Ashter 


SAN UnpUblinines te 
*, 
: 
Yh Nats 
ca 
Hatta 


ana 1OO% compatible 


West Jefferson Bive 
Gity GA BORO (233) POA-BE FO a oroprietary w 
BA AGHITATE GULLY AM rights reserved 





